knowledgements) = 0 Then
      m_sAcknowledgements = App.Comments
   End If
   
   Me.Caption = m_sTitle
   lblAppName.Caption = m_sAppName
   lblCopyright.Caption = m_sCopyright
   SetAsUrl lblCopyright, m_sCopyrightUrl
   lblVersion.Caption = m_sVersion
   txtAcknowledgements.Text = m_sAcknowledgements
   
   If Me.Icon.handle = 0 Then
      Dim frm As Form
      For Each frm In Forms
         If (frm.BorderStyle = 2) Then
            Me.Icon = frm.Icon
            Exit For
         End If
      Next
   E