Imports Infragistics.Shared
Imports Infragistics.Win
Imports Infragistics.Win.UltraWinDock
Private Sub CreateDockManagerPanes(ByVal manager As UltraDockManager)
' this code assumes that there is a treeview (treeview1),
' listview (listview1) and rich textbox (richtext1) on
' the form
' create control panes to contain the listview
' and tree view
Dim paneTree As DockableControlPane = New DockableControlPane("tree", "MS Treeview", Me.treeView1)
Dim paneList As DockableControlPane = New DockableControlPane()
paneList.Key = "list"
paneList.Text = "MS Listview"
paneList.Control = Me.listView1
' create a dock area to contain the control panes
Dim dockAreaLeft As DockAreaPane = New DockAreaPane(DockedLocation.DockedLeft)
' add the control panes to the dock area
dockAreaLeft.Panes.Add(paneTree)
dockAreaLeft.Panes.Add(paneList)
' display the panes in a tab group
dockAreaLeft.ChildPaneStyle = ChildPaneStyle.TabGroup
' initialize the size of the dock area
dockAreaLeft.Size = New Size(200, 200)
' let the tabs autosize to the tab caption
dockAreaLeft.GroupSettings.TabSizing = Infragistics.Win.UltraWinTabs.TabSizing.AutoSize
' unpin the panes
dockAreaLeft.Unpin()
' now create the control pane to contain the richtext
Dim paneText As DockableControlPane = New DockableControlPane("text", "MS RichText", Me.richTextBox1)
' create a dock area on the right to contain the rich text
Dim dockAreaFloat As DockAreaPane = New DockAreaPane(DockedLocation.DockedRight)
' initialize the size of the dock area
dockAreaFloat.Size = New Size(120, 200)
' contain the rich text pane in the dock area
dockAreaFloat.Panes.Add(paneText)
' finally, add the dock areas to the dock manager
manager.DockAreas.AddRange( _
New DockAreaPane() {dockAreaLeft, dockAreaFloat})
' float the rich text dock area but give it a different
' floating size
dockAreaFloat.Float(False, New Rectangle(400, 400, 200, 150))
End Sub