隐藏与显示鼠标程序(vb6.0源代码编写)Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long Private Sub Command1_Click() '隐藏鼠标 ShowCursor True '计数加一 Command1.Enabled = False Command2.Enabled = True End Sub Private Sub Command2_Click() '显示鼠标