分类：电脑/网络-程序设计
问题：VB鼠标经过超链接变色，怎么实现呢，谢谢！经过的时候变色或者有下? 
鼠标经过超链接 变色，怎么实现呢，谢谢！ 经过的时候变色或者 有下划线，鼠标移开恢复原来的
回答：Option Explicit

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = RGB(0, 0, 0)
    Label1.FontUnderline = False
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.ForeColor = RGB(0, 0, 255)
    Label1.FontUnderline = True
End Sub

Label1属性：
AutoSize=True
ForeColor=&H000000
FontUnderLine=False