Question

VB 关于鼠标移动事件

我希望鼠标移动至label上时，它的caption字体是一个颜色(如红色)，移开时是另一个颜色(如蓝色)，怎么做到？代码
鼠标移动事件是否区分移动进某个对象上和从对象上移动出去？
由于label按钮周围还有其他按钮，所以我是不是要在周围其他的每个控件上都写上鼠标移动后label字体为蓝色的代码呢？才能保证只要移出label控件其字体颜色就变成蓝色

Answer 1

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事件