Private MergeColor As Long
 
Private Sub Form_Load()
   MergeColor = Label1.ForeColor
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
   With Label1
      .FontUnderline = False
      .ForeColor = MergeColor
   End With
End Sub
 
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
   With Label1
      .FontUnderline = True
      .ForeColor = vbRed
   End With
End Sub