请问标签数组上划线的有关问题

请教标签数组下划线的问题
在网上找了个label的下划线功能：鼠标移动过来时显示下划线，但因为我的控件为数组，功能： 鼠标移走时去掉下划线不能实现，请教各位应如何实现鼠标移走时去掉下划线

代码：
Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label2(Index).Font.Underline = True
  End Sub


[解决办法]
Private Sub Label2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
with label2(Index)

.Font.Underline =x>90 and x <.width-90 and y>90 and y<.height-90
end with
End Sub