Public Class CompoType

   Private m_Name As String
   Public ReadOnly Property Name As String
      Get
         Return m_Name
      End Get
   End Property
   Public Sub SetName(Name As String)
      m_Name = Name
   End Sub

   Private m_DDFName As String
   Public ReadOnly Property DDFName As String
      Get
         Return m_DDFName
      End Get
   End Property
   Public Sub SetDDFName(DDFName As String)
      m_DDFName = DDFName
   End Sub

   Private m_Path As String
   Public ReadOnly Property Path As String
      Get
         Return m_Path
      End Get
   End Property
   Public Sub SetPath(Path As String)
      m_Path = Path
   End Sub

   Private m_JambSide As String
   Public ReadOnly Property JambSide As String
      Get
         Return m_JambSide
      End Get
   End Property
   Public Sub SetJambSide(JambSide As String)
      m_JambSide = JambSide
   End Sub

   Sub New(sName As String, sDDFName As String, sPath As String, sJambSide As String)
      m_Name = sName
      m_DDFName = sDDFName
      m_Path = sPath
      m_JambSide = sJambSide
   End Sub

End Class