قفل کردن موس در سر جای خود

1 کد زیر را درقسمت  general نوشته

Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

2 کد زیر را در قسمتload form نوشته یا بر روی یک command  نوشته

  DoEvents

  BlockInput True      'True=1

  Sleep 10000

  BlockInput False     'False=0

3 میتوان به جای 10000 عدد دیگر نوشت به این ترتیب مدت زمان قفل بودن موس تعییر می کند .