VB锁定鼠标键盘，VB锁定鼠标，VB锁定键盘，VB屏蔽鼠标键盘，VB屏蔽鼠标，VB屏蔽键盘，VB BlockInput，VB BlockInput (5)，VB BlockInput (0)，BlockInput (5)，BlockInput (0)。

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