l怎样改变abel控件上的文本颜色,该如何解决

l怎样改变abel控件上的文本颜色
本人初学vb。问一些简单问题，请不要见怪。

是这样的。
我做了一个label控件，我想让鼠标移动的标签上时，文本的颜色有

黑色变成红色。当鼠标移出的时候，又变成黑色。
该怎么写?

这是我写的代码，当鼠标移动上面时是红色的，移出时本能改变成黑色的，

Private   Sub   Label17_MouseMove(Button   As   Integer,   Shift   As   Integer,   X   As   Single,   Y   As   Single)
Label17.ForeColor   =   vbRed
End   Sub

请教。我该怎么办？

------解决方案--------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbBlack
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = vbRed
End Sub

------解决方案--------------------
我对这个的思路是
1.form_mousemove事件
如果你的鼠标在label那个区域内，就改变颜色红色，在区域外就黑色
Private Sub form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if x> =label12.left and x <=.............. and y........... then
Label17.ForeColor = vbRed
else
Label17.ForeColor = vbBlack
end if
End Sub