ements = m_sAcknowledgements
End Property
Public Property Let Acknowledgements(ByVal sAcknowledgements As String)
   m_sAcknowledgements = sAcknowledgements
   If (m_bShowing) Then
      txtAcknowledgements = m_sAcknowledgements
   End If
End Property
Public Property Get Title() As String
   Title = m_sTitle
End Property
Public Property Let Title(ByVal sTitle As String)
   m_sTitle = sTitle
   If (m_bShowing) Then
      Me.Caption = m_sTitle
   End If
End Property
Public Property Get Copyright() As String
 