Private
Sub
Form_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Label1.FontUnderline
=
False
End
Sub
Private
Sub
Label1_MouseMove(Button
As
Integer,
Shift
As
Integer,
X
As
Single,
Y
As
Single)
Label1.FontUnderline
=
True
End
Sub
下划线是这样， 超链接你会我就不写了。
内容全部来源于网络收集，如有侵权，请联系网站删除！