这个效果怎么实现？

Question

比如 说一个label控件，我想实现当鼠标在文字上时，出现超链接的效果!(包括出现下划线，以及字体变色！)

Answer 1

窗体上访一个label
Option Explicit
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = False
    Label1.ForeColor = vbBlack
End SubPrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.FontUnderline = True
    Label1.ForeColor = vbBlue
End Sub

Answer 2

Dim bolMoveflg As Boolean
Dim singx As Single
Dim singy As SinglePrivate Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If bolMoveflg = False Then
    bolMoveflg = True
    singx = X
    singy = Y
    Timer1.Enabled = True
  Else
    singx = X
    singy = Y
    bolMoveflg = False
    Timer1.Enabled = False
    Timer2.Enabled = False
    Label2.Visible = False
  End If
End SubPrivate Sub Timer1_Timer()
    Label2.Left = Label1.Left + singx - 30
    Label2.Top = Label1.Top + singy - 30
    Label2.Visible = True
    Timer2.Enabled = True
    Timer1.Enabled = False
End SubPrivate Sub Timer2_Timer()
    Label2.Enabled = False
    Timer2.Enabled = False
End Sub