Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwmilliseconds As Long)
Private Sub Durdur_Click()
DoEvents
'mouse ve klavyeyi bloke et
BlockInput True 'bloke işlemine başla
Sleep 10000 '10 saniye bloke et
BlockInput False 'bloke işlemini sonlandır
End Sub
forma bi buton oluşturun (name:durdur) sonra forma yukardaki kod yapıştırın
10 snliğine pc donacak