序的那就如上位所说 若想让关闭程序后鼠标仍改变那就参考下面
Declare Function LoadCursorFromFile Lib user32 Alias LoadCursorFromFileA (ByVal lpFileName As String) As Long
Declare Function SetSystemCursor Lib user32 Alias SetSystemCursor (ByVal hCur As Long, ByVal id As Long) As Long
'关于 SetSystemCursor
hCur：光标的句柄，该函数hCur标识的光标的内容代替id定义的系统光标内容。系统通过调用DestroyCursor函数销毁hCur。因此hCur不能是由LoadCursor函数载入的光标。要指定一个从资源载入的光标，先用CopyCursor函数复制该光标，然后把该副本传送给SetSystemCursor函数。
id：指定由hour的内容替换系统光标。
下面是一系列的系统光标标识符：
OCR_APPSTARTING：标准箭头和小的沙漏
OCR_NORMAL：标准箭头
OCR_CROSS：交叉十字线光标
OCR_HAND：手的形状（Windows NT 5.0 和以后版本）
OCR_HELP：箭头和向东标记
OCR_IBEAM：I形梁
OCR_NO：斜的圆
OCR_SIZEALL：四个方位的箭头分别指向北、南、东、西
OCR_SIZENESEW：双箭头分别指向东北和西南
OCR_SIZENS：双箭头，分别指向北和南
OCR_SIZENWSE：双箭头分别指向西北和东南
OCR_SIZEWE：双箭头分别指向西和东
OCR_UP：垂直箭头
OCR_WAIT：沙漏
然后 SetSystemCursor LoadCursorFromFile(D:\1.ani),OCR_NORMAL 即可。
系统会自动调用 DestroyCursor 来销毁。
Option Explicit
Private Declare Function LoadCursorFromFile Lib user32 Alias LoadCursorFromFileA (ByVal lpFileName As String) As Long
Private Declare Function SetSystemCursor Lib user32 (ByVal hCur As Long, ByVal id As Long) As Long
Private Declare Function DestroyCursor Lib user32 (ByVal hCur As Long) As Long
Private Const OCR_NORMAL = 32512
Dim lRet As Long
Private Sub Form_Load()
lRet = LoadCursorFromFile(D:\Icons\Standard Hand.cur)'我的图标路径
SetSystemCursor lRet, OCR_NORMAL
End Sub
Private Sub Command1_Click()
DestroyCursor(lRet)
End Sub
惨了……变不回去……必须要重设光标了。
但你可以设置单击“取消”后把鼠标换成系统鼠标图案，前提是你要有系统的鼠标文件
升级后，系统故障，恢复出厂
升级系统 后 你的驱动没跟上，就会这样
黑屏有几种解决方法：
1。试试开机，出完电脑品牌后，按F8，回车，回车，进安全模式里，高级启动
选项，最后一次正确配置，回车，回车，按下去试试！
2。进安全模式，正常启动，回车，到桌面后，用百度杀毒全盘杀毒！
3。使用：百度卫士全面体检电脑并且查杀木马并且修复电脑
4。拔下显卡和内存条，橡皮擦擦，再用毛刷，清理插槽灰尘和风扇，
更换内存插槽等！
5。下载安装“驱动精灵”，升级：显卡驱动！
6。再开机，如果还是不行，需要“一键还原”或“重装系统”了！
希望能帮助到你，
标签：图标,鼠标
