' Create a new TaskPaneTool
Dim myTaskPaneTool1 As New TaskPaneTool("ToDoBar")
' Set the Caption on the TaskPaneTool
myTaskPaneTool1.SharedProps.Caption = "To-Do Bar"
' Add the TaskPaneTool to the UltraToolbarsManager to its tools collection
myToolbarManager.Tools.Add(myTaskPaneTool1)
' Add the TaskPaneTool to the TaskPaneToolbar
myTaskPaneToolbar.Tools.AddRange(New ToolBase() {myTaskPaneTool1})