ドッカブル ウィンドウのサイズ変更

Public Sub MoveTableDockWindow()
  Dim pDockableWindowManager As IDockableWindowManager = My.ArcMap.Application
   
  Dim pUID As IUID = New UIDClass()
  pUID.Value = "{2B740D8F-442C-4975-BCE7-59D9949DAD9E}" 'TableDockWindow
   
  Dim pDockableWindow As IDockableWindow= pDockableWindowManager.GetDockableWindow(pUID)
   
  Dim pWindowPosition As IWindowPosition = pDockableWindow
 
  If pDockableWindow.IsVisible Then
    pDockableWindow.Dock(esriDockFloat)
    pWindowPosition.Move(100, 100, 300, 100)
  End If
End Sub