If you want to use the code I wrote above to simulate a hyperlink, do something like this:
Code:
Option Explicit

Private Sub Form_Load()
    With Label1
        .Font.Underline = True
        .Caption = "My Hyperlink"
    End With
End Sub

Private Sub Timer1_Timer()
    With Label1
        If MouseOver(Label1, Me) Then
            .ForeColor = vbBlue
        Else
            .ForeColor = vbButtonText
        End If
    End With
End Sub
[Edited by seaweed on 04-13-2000 at 05:56 PM]