Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Activate()
    DoEvents
    ' إيقاف لوحة المفاتيح والماوس عن العمل
    BlockInput True
    ' الانتظار عشر ثواني
    Sleep 10000
    ' إعادة لوحة المفاتيح والماوس للعمل مرة أخرى
    BlockInput False
End Sub