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

[wdthkyou]

我试过在标签的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

[VBToy]

'接合窗体的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

[VBToy]

'改进一下
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

[wdthkyou]

解决了，谢谢！