Private MergeForeColor As Long
 
Private Const HOOVERCOLOR As Long = vbBlue
 
Private Sub Form_Load()
   MergeForeColor = Label1.ForeColor
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
   Label1.ForeColor = MergeForeColor
End Sub
 
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
   Label1.ForeColor = HOOVERCOLOR
End Sub