楼上的~是针对有句柄的控件才有效~像label这种轻量级控件没有用的
给你一个简单版的。
Dim a, b
Private Sub Form_Load()
a = Label1.ForeColor
b = Label1.MousePointer
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = a
Label1.MousePointer = b
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
Label1.MousePointer = 99
Label1.MouseIcon = LoadPicture("C:\WINDOWS\Cursors\harrow.cur")
End Sub
温馨提示:答案为网友推荐,仅供参考