标题轻松隐藏鼠标

　　在VB5.0程序设计中要想隐藏鼠标是非常容易的，调用Win32API函数int ShowCursor(BOOL bShow)即可，bShow是一个布尔变量。在调用时将bShow设为False或0，鼠标将隐藏(注意鼠标仍起作用，但我们看不见它了)，将bShow设为True或1，鼠标将恢复显示。
　　(1)新建一个窗体，在工程中新建一个模块，将如下代码写入工程中的模块：
　　Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
　　'隐藏Mouse过程
　　Public Sub toHideCursor()
　　ShowCursor (False) '两种不同的调用方法都行
　　End Sub
　　'显示Mouse
　　Public Sub toShowCursor()
　　ShowCursor 1
　　End Sub
　　(2)在窗体中新建两个CommandButton控件，分别命名为Command1、Command2。在Command1_Click事件中加入一句代码：
　　Call toHideCursor
　　在Command2_Click事件中加入一句代码：
　　Call toShowCursor
　　运行程序，单击Command1，发现鼠标不见了。别急，按键盘的Tab键，将焦点切换到Command2时，按回车键。哈哈！鼠标又有了！