让窗口拒绝接受键盘和鼠标事件 声明： Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long 使用： '拒绝接受键盘和鼠标事件 Call EnableWindow(Form.hwnd, 0) '允许接受键盘和鼠标事件 Call EnableWindow(Form.hwnd, 1)