Imports Infragistics.Win.UltraWinSchedule Imports Infragistics.Win.UltraWinToolbars ... Private Sub Add_the_WinCalendarCombo_Tool_to_a_Toolbar_Load( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim myCalendarCombo As New UltraCalendarCombo() Dim controlcontainer1 As New ControlContainerTool("controlcontainer1") ' Adds the tool to the Toolbar Manager's Tools collection Me.UltraToolbarsManager1.Tools.Add(controlcontainer1) Me.UltraToolbarsManager1.Toolbars(0).Tools.Add(controlcontainer1) ' Sets the UltraCalendarCombo as the element to appear in the ControlContainerTool controlcontainer1.Control = myCalendarCombo End Sub