rty Get Version() As String
   Version = m_sVersion
End Property
Public Property Let Version(ByVal sVersion As String)
   m_sVersion = sVersion
   If (m_bShowing) Then
      lblVersion.Caption = sVersion
   End If
End Property
Public Property Get AppName() As String
   AppName = m_sAppName
End Property
Public Property Let AppName(ByVal sAppName As String)
   m_sAppName = sAppName
   If (m_bShowing) Then
      lblAppName.Caption = m_sAppName
   End If
End Property


Private Sub cmdOK_Click()
   Unload Me
End