  Copyright = m_sCopyright
End Property
Public Property Let Copyright(ByVal sCopyright As String)
   m_sCopyright = sCopyright
   If (m_bShowing) Then
      lblCopyright.Caption = m_sCopyright
   End If
End Property
Public Property Get CopyrightUrl() As String
   CopyrightUrl = m_sCopyrightUrl
End Property
Public Property Let CopyrightUrl(ByVal sCopyrightUrl As String)
   m_sCopyrightUrl = sCopyrightUrl
   If (m_bShowing) Then
      SetAsUrl lblCopyright, m_sCopyrightUrl
   End If
End Property

Public Prope