Imports Infragistics.Win.UltraWinToolbars
Imports Infragistics.Win.UltraWinTabControl
Imports Infragistics.Win.UltraWinSchedule
Private Sub CreateCustomTabs(tabControl1 As UltraTabControl)
    ' カスタム タブをダイアログのタブ コントロールに追加します
    Dim custTab As UltraTab = tabControl1.Tabs.Add("customTab1", "Custom Tab 1")
    tabControl1.ViewStyle = Infragistics.Win.UltraWinTabControl.ViewStyle.Office2007
    Dim ultraMonthView1 As New UltraMonthViewSingle()
    ultraMonthView1.Size = New Size(500, 300)
    ultraMonthView1.Location = New Point(90, 150)
    ultraMonthView1.Dock = DockStyle.Fill
    ' MonthViewSingle コントロールをカスタム タブに追加します
    custTab.TabPage.Controls.Add(ultraMonthView1)
End Sub