【VB技巧】VB锁定鼠标键盘 屏蔽鼠标键盘

VB锁定鼠标键盘，VB屏蔽鼠标键盘：

Private Declare Function BlockInput Lib "user32" (ByVal fEnable As Long) As Long
Private Sub Command1_Click()
    BlockInput (5)                                                              '锁定
End Sub
Private Sub Timer1_Timer()
    BlockInput (0)                                                              '解锁
End Sub