   If Len(ctl.Tag) &gt; 0 Then
         If (ctl.ToolTipText = "Go to " &amp; ctl.Tag) Then
            ctl.ToolTipText = ""
         End If
         ctl.Tag = ""
      End If
      ctl.ForeColor = vbWindowText
      ctl.FontUnderline = False
      ctl.MousePointer = vbDefault
   End If
End Sub

Private Sub UrlClick(ctl As Control)
   If Len(ctl.Tag) &gt; 0 Then
      ShellExecute Me.hWnd, "open", ctl.Tag, "", "", SW_SHOWNORMAL
   End If
End Sub

Public Property Get Acknowledgements() As String
   Acknowledg