Public Class CompoType

   Private m_Name As String
   Public ReadOnly Property Name As String
      Get
         Return m_Name
      End Get
   End Property

   Private m_DDFName As String
   Public ReadOnly Property DDFName As String
      Get
         Return m_DDFName
      End Get
   End Property

   Private m_Path As String
   Public ReadOnly Property Path As String
      Get
         Return m_Path
      End Get
   End Property

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

End Class