请问当鼠标移动到某一控件时，如何改变鼠标的外型？

Question

控件.mousepointer 属性设置
控件.mouseicon属性装载loadpicture命令

Answer 1

用mousepointer属性
在control_mousemove里面加上变换鼠标形状
在form_mousemove里面加上鼠标变回来的

Answer 2

把改变鼠标外型的代码写在控件的Mousemove事件里就可以了
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)这里写上bruce_lii(bl)提供的代码End Sub　

Answer 3

我的代码如下，但鼠标外型并没有改变，请问为什么？ 
      Label5.MousePointer = vbIconPointer
      Label5.MouseIcon = LoadPicture(App.Path & "\hand.ico")

Answer 4

Label5.MousePointer = 99 '注意将这里改成99
Label5.MouseIcon = LoadPicture(App.Path & "\hand.ico")