Imports System.Windows.Forms.Integration
Imports EgtUILib

Public Class WinFormPluginControlVM

   Private m_WinFormUserControl As Forms.Control
   Public ReadOnly Property WinFormUserControl As Forms.Control
      Get
         Return m_WinFormUserControl
      End Get
   End Property

   Private m_DockSide As Dock
   Public ReadOnly Property DockSide As Dock
      Get
         Select Case TryCast(m_WinFormUserControl, IPluginControl).DockSide
            Case Forms.DockStyle.Top
               Return Dock.Top
            Case Forms.DockStyle.Bottom
               Return Dock.Bottom
            Case Forms.DockStyle.Left
               Return Dock.Left
            Case Forms.DockStyle.Right
               Return Dock.Right
            Case Else
               Return Nothing
         End Select
      End Get
   End Property

   Sub New(WinFormControl As Forms.Control)
      m_WinFormUserControl = WinFormControl
   End Sub

End Class