Option Explicit

Private m_blnHyperlink As Boolean

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
      "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation _
      As String, ByVal lpFile As String, ByVal lpParameters _
      As String, ByVal lpDirectory As String, ByVal nShowCmd _
      As Long) As Long

Private Sub UserForm_Initialize()
  With Me.lblHyperlink
    .BackColor = Me.BackColor
    .WordWrap = False
    .AutoSize = True
    .ForeColor = vbBlue
    .Font.Bold = False
    .Font.Underline = True
  End With
End Sub

Private Sub lblHyperlink_Click()
  Dim nRetVal As Long
  nRetVal = ShellExecute(0, vbNullString, lblHyperlink.Caption, _
        vbNullString, vbNullString, vbNormalFocus)
End Sub

Private Sub lblHyperlink_MouseMove(ByVal Button As Integer, _
      ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If Not m_blnHyperlink Then
    With Me.lblHyperlink
      .Font.Bold = True
      .ForeColor = vbRed
    End With
    m_blnHyperlink = True
  End If
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, _
      ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  If m_blnHyperlink Then
    With Me.lblHyperlink
      .Font.Bold = False
      .ForeColor = vbBlue
    End With
    m_blnHyperlink = False
  End If
End Sub

Private Sub cmdClose_Click()
  Unload Me
End Sub