Imports Infragistics.Win.UltraWinDock ... Private Sub GroupingMultipleWindowsTogether_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim dgpWinTree As New DockableGroupPane() Dim dapWinTree As New DockAreaPane(DockedLocation.DockedLeft) Dim dcpWinTree1 As New DockableControlPane() Dim dcpWinTree2 As New DockableControlPane() ' コントロールを DockableControlPanes に追加します dcpWinTree1.Control = Me.UltraTree1 dcpWinTree1.TextTab = "UltraTree1" dcpWinTree2.Control = Me.UltraTree2 dcpWinTree2.TextTab = "UltraTree//2" ' ペインを表示するためのスタイルを設定します dgpWinTree.ChildPaneStyle = ChildPaneStyle.TabGroup ' DockableControlPanes を DockableGroupPane に追加します dgpWinTree.Panes.Add(dcpWinTree1) dgpWinTree.Panes.Add(dcpWinTree2) ' DockableGroupPane を DockAreaPane に追加します dapWinTree.Panes.Add(dgpWinTree) ' 新たに作成された DockAreaPane を UltraDockManager の DockAreas コレクションに追加します Me.UltraDockManager1.DockAreas.Add(dapWinTree) End Sub