'直接使用标准按钮控件
'按钮1的MouseIcon属性设置成一个手形光标,Style属性设为1
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.MousePointer = 99
Command1.Picture = LoadPicture("颜色亮一点的图片地址")
End Sub
Private Sub Form_Load()
Command1.Picture = LoadPicture("颜色暗一点的图片地址")
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Picture = LoadPicture("颜色暗一点的图片地址")
End Sub
温馨提示:内容为网友见解,仅供参考