g
Private m_sAcknowledgements As String
Private m_bShowing As Boolean

Private m_xDir() As Long
Private m_yDir() As Long

Private m_tOSV As OSVERSIONINFO


Private Sub SetAsUrl(ctl As Control, ByVal sUrl As String)
   If (Len(sUrl) &gt; 0) Then
      ctl.Tag = sUrl
      ctl.ForeColor = &amp;H800000
      ctl.FontUnderline = True
      ctl.MouseIcon = picLogo.MouseIcon
      ctl.MousePointer = 99
      If (Len(ctl.ToolTipText) = 0) Then
         ctl.ToolTipText = "Go to " &amp; sUrl
      End If
   Else
   