关于VB 鼠标移动的问题！

一个很简单的问题

当鼠标移动到LABEL控件上 使其内容变红色

在LABEL_MOUSEMOVE中

Label.ForeColor = vbRed

但是我想 在鼠标移动的别的地方的时候 颜色变回来怎么办

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H80000012 '黑色
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF& '红色
End Sub

mousemovein,mousemoveout

我不记得VB的label有没有这属性。