问一个Label控件的有关问题

问一个Label控件的问题
就是当鼠标放在这个Label控件的时候，他的BoardStyle是1
当鼠标移开以后，他的BoardStyle又变回0

请问这段代码怎么写呢？谢谢了

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

End Sub

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

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

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Label1.BorderStyle = 1
End Sub
只用LABEL1一个控件,不知道你要做什么,===鼠标放在这个Label,必定能产生MOVE