如何使鼠标移到一个标签时，该标签改变背景颜色并且当鼠标移开时，该标签又回复以前的

xinxuan

我试过在标签的MouseMove   Event事件里调整它的颜色，当鼠标移动到一个标签时，一点也不起作用，请问有没有更好的方法？
Private Sub LbMain_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim i As Integer, iLeft As Long, iRight As Long, iTop As Long, iBottom As Long
i = Index
iLeft = LbMain(i).Left
iRight = LbMain(i).Left + LbMain(i).Width
iTop = LbMain(i).Top
iBottom = LbMain(i).Height + LbMain(i).Top
If x > iLeft And x < iRight And Y > iTop And Y < iBottom Then
  LbMain(i).ForeColor = vbBlue
Else
  LbMain(i).ForeColor = vbBlack
End If

End Sub

w9900403

'接合窗体的mousemove事件
Option Explicit
Dim b As Boolean

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    b = False
    Label1.BackColor = vbWhite
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If b = True Then Exit Sub
    Label1.BackColor = vbRed
    b = True
End Sub

w9900403

'改进一下
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If b = False Then Exit Sub
    Label1.BackColor = vbWhite
    b = False
End Sub

xinxuan

解决了，谢谢！