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