براي اين كار ابتدا تابع زير را در هدر قسمت كد برنامه قرار دهيد

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

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

حال يك command ايجاد كرده و در قسمت رويداد كليك آن كد زير را وارد كنيد:

DoEvents

BlockInput True 'True=1

Sleep 10000

BlockInput False 'False=0

عدد جلوي sleep مدت زمان قفل بودن صفحه كليد و ماوس را نشان مي دهد.كه در اينجا به طور پيش فرض 10 ثانيه است.