Option ExplicitPrivate Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Command1_Click() Call ShowCursor(1) '显示鼠标End Sub
Private Sub Command2_Click() Call ShowCursor(0) '隐藏鼠标End Sub