Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlue
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub
如果Label旁边有控件和它紧靠着，也要写那个控件的MouseMove事件
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024