How to make the label change the background color when the mouse moves to a label and when the mouse moves away, the lab

xinxuan

I've tried adjusting the color of the label's MouseMove Event event. When the mouse moves to a label, it doesn't work at all. Is there a better way?
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 event that engages the form
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

'Improve
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

Solved, thank you!