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