Class SimpleMsg
  'member variable to store the message text
  Private strMessage As String

  'property to allow get/set functionality on
  'strMessage member variable
  Public Property MsgText() As String
    Get
      MsgText = strMessage
    End Get
    Set(ByVal Value As String)
      strMessage = Value
    End Set
  End Property
End Class

Class MailMsg
  Inherits SimpleMsg

  'Private member data
  Private strAddrTo As String
  Private strAddrCc As String
  Private strAddrFrom As String
  Private bHighPriority As Boolean

  'Public properties
  Public Property AddrTo() As String
    Get
      AddrTo = strAddrTo
    End Get
    Set(ByVal Value As String)
      strAddrTo = Value
    End Set
  End Property

  Public Property AddrCc() As String
    Get
      AddrCc = strAddrCc
    End Get
    Set(ByVal Value As String)
      strAddrCc = Value
    End Set
  End Property

  Public Property HighPriority() As Boolean
    Get
      HighPriority = bHighPriority
    End Get
    Set(ByVal Value As Boolean)
      bHighPriority = Value
    End Set
  End Property

  Public Property AddrFrom() As String
    Get
      AddrFrom = strAddrFrom
    End Get
    Set(ByVal Value As String)
      strAddrFrom = Value
    End Set
  End Property
End Class