Option Explicit

Private Mouse0verHyperLink 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 Form_MouseMove(Button As Integer, Shift As Integer, _
      X As Single, Y As Single)
  lblHyperlink.FontUnderline = False
  lblHyperlink.ForeColor = &H80000012
End Sub

Private Sub lblHyperlink_Click()
  Dim RetVal As Long
  If Mouse0verHyperLink = True Then
    RetVal = ShellExecute(Me.hwnd, vbNullString, lblHyperlink. _
      Caption, vbNullString, vbNullString, vbNormalFocus)
  End If
End Sub

Private Sub lblHyperlink_MouseMove(Button As Integer, _
      Shift As Integer, X As Single, Y As Single)

  Dim HandSymbolPfad As String
  Dim YDiff As Single

  YDiff = (lblHyperlink.Height - Me.TextHeight _
      (lblHyperlink.Caption)) / 2
  HandSymbolPfad = App.Path & "\Hand.ico"

  If Y > YDiff And Y < lblHyperlink.Height - YDiff Then
    Mouse0verHyperLink = True
    lblHyperlink.MousePointer = vbCustom
    lblHyperlink.MouseIcon = LoadPicture(HandSymbolPfad)
    lblHyperlink.FontUnderline = True
    lblHyperlink.ForeColor = &HFF0000
  Else
    Mouse0verHyperLink = False
    lblHyperlink.MousePointer = vbDefault
  End If
End Sub