VB6.0隐藏鼠标

1、新建一个EXE工程

2、打开API文本浏览器：Windows开始→Mcrosoft Visual Basic 6.0中文版→Mcrosoft Visual Basic 6.0中文版工具→API文本浏览器

3、在API文本浏览器选择菜单“文件”→加载文本文件，在打开的文件窗口中选择“WIN32API.txt”

4、在“键入您要查找的内容的开头几个字母：”下的文本框键入“ShowCursor”并选择右侧“声明范围”中的“私有”。点击“添加”，在“选定项”下方的文本框中将出现声明内容。点击“复制”，将声明内容复制。并将声明内容粘贴到VB6.0代码窗口的“通用-声明”处。

5、设置Form1属性。KeyPreview让窗体可以接受键盘动作，WindowState使窗体最大化。

6、在代码窗口输入以下内容：

Private Sub Form_Click()

    ShowCursor 0   '隐藏鼠标

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)   

If KeyCode = 65 Then

        ShowCursor 1   ‘显示鼠标

End If

End Sub

点击窗口时鼠标隐藏。

摁下“A”键鼠标显示。