HighLight Label with move move over label

[shan1]

Dim temp As Double
Private Sub Form_Load()
temp = Label1.BackColor
End Sub

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

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = 10 'some color
End Sub

try this out!!!!!!