在VB中如何实现类似网页的效果。。。。

Question

http://caotang.myetang.com/temp/hyperlink.zip

Answer 1

'以标签为例
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = False
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = True
End Sub

Answer 2

to 吴文智：
   你的程式必须发生click后，才能改变样式；
   能不能不click就改变？盼！

Answer 3

刚才调试时出了点问题，至此已解决，
foolishtiger的方法最简单, 
enmity的也可行，谢谢各位！