Imports System.Collections.ObjectModel
Imports System.IO
Imports EgtUILib
Imports EgtWPFLib5

Public Class Association
   Inherits VMBase

   Private m_Side As Integer
   Public Property Side As Integer
      Get
         Return m_Side
      End Get
      Set(value As Integer)
         m_Side = value
      End Set
   End Property
   ' 
   Private m_refPartDoor As PartDoor
   Public Property refPartDoor As PartDoor
      Get
         Return m_refPartDoor
      End Get
      Set(value As PartDoor)
         m_refPartDoor = value
      End Set
   End Property

   Sub New(ref_PartDoor As PartDoor, ref_nSide As Integer)
      m_refPartDoor = ref_PartDoor
      Side = ref_nSide
   End Sub

End Class