Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
Label1.ForeColor = RGB(0, 0, 0)
Label1.FontUnderline = False
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
Label1.ForeColor = RGB(0, 0, 255)
Label1.FontUnderline = True
End Sub