Question

vb6.0 当鼠标到label标签上时标签上的字加下划线

类似于超链接按钮实现的功能

Answer 1

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Font.Underline = True
End Sub

追问

当鼠标移开的时候下划线还在，如何去掉？空格的位置不要下划线如何设置！谢谢！

追答

移开时就在窗体的mousemove中写，或者在label的上一层容器中写，如
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Font.Underline = False
End Sub
空格位置无法取消下划线，只能用不同的label