ツールバーの表示制御

Public Sub ModifyToolbar()
    'ThisDocumentの取得
    Dim pDocument As IDocument
    Set pDocument = ThisDocument
     
    'CommandBarsの取得
    Dim pCommandBars As ICommandBars
    Set pCommandBars = pDocument.CommandBars
     
    'CommandBarの取得
    Dim pCommandBar As ICommandBar
    Set pCommandBar = pCommandBars.Find(arcid.Tools_Toolbar)        'ツール ツールバー
         
    'ツールバーの制御
    pCommandBar.Dock esriDockFloat      'フロート
     
    pCommandBar.Dock esriDockTop        '天
    pCommandBar.Dock esriDockBottom     '地
    pCommandBar.Dock esriDockLeft       '左
    pCommandBar.Dock esriDockRight      '右
     
    pCommandBar.Dock esriDockShow       '表示
    pCommandBar.Dock esriDockHide       '非表示
    pCommandBar.Dock esriDockToggle     'トグル（表示・非表示切り替え）
 
    '参照ツールバーを基準に移動
    Dim pCommandBar2 As ICommandBar
    Set pCommandBar2 = pCommandBars.Find(arcid.Standard_Toolbar)    '標準 ツールバー
    pCommandBar.Dock esriDockRight, pCommandBar2
 
End Sub