VB里。怎么让鼠标变成手指的状态？？

Question

如果我移到一个BUTTION，怎么让鼠标变为手指状态？？
手指状态的值是多少？

Answer 1

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.MouseIcon = LoadPicture("c:\windows\Uninstall.ico")
Command1.MousePointer = 99
End Sub

Answer 2

手指形状不是单纯通过设置MousePointer值来实现的。
楼上的方法也可以，不过把图标放在磁盘上程序运行时动态读入有一定的弊端，不如把ico文件直接编译进exe为好：选中要设置鼠标形状的控件，将MousePointer值设置为99，将MouseIcon设置为鼠标形状的ico图标文件即可。