And what about mouseout ?

[Aaron Young]

Try creating your own Label Class, here's a quick example, you can improve it for your own needs..

In a Class Module Called HyperLink..

Public WithEvents Label As Label

Private Sub Label_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If TypeName(oLastLabel) = "Nothing" Then
        Set oLastLabel = Label
        Label.ForeColor = vbBlue
        Label.FontUnderline = True
    End If
End Sub

In a Module..

Public oLastLabel As Control

In the Form, Add 3 Labels..

Private Link1 As New HyperLink
Private Link2 As New HyperLink
Private Link3 As New HyperLink

Private Sub Form_Load()
    Set Link1.Label = Label1
    Set Link2.Label = Label2
    Set Link3.Label = Label3
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If TypeName(oLastLabel) = "Nothing" Then Exit Sub
    oLastLabel.ForeColor = vbWindowText
    oLastLabel.FontUnderline = False
    Set oLastLabel = Nothing
End Sub

Private Sub Label1_Click()
    'Play Code to Jump to URL in Label1 Here..
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]