' 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})