' BeginUpdate を呼び出して個々のタブを追加する時にディスプレイが更新されないようにします ' 注:これは以下の EndUpdate への呼び出しのたびに実行する必要があります。 Me.ultraTabControl1.BeginUpdate() Dim tabsCollection As UltraTabsCollection = ultraTabControl1.Tabs ' タブを Tabs コレクションに追加します Dim nameTab As UltraTab = tabsCollection.Add("tab1", "Name") Dim addressTab As UltraTab = tabsCollection.Add("tab2", "Address") ' タブに追加されるコントロールを作成し、そのプロパティを設定します Dim txtName1 As New TextBox() Dim lblName1 As New Label() lblName1.Location = New Point(20, 40) lblName1.Size = New Size(80, 20) lblName1.Text = "NAME:" txtName1.Location = New Point(110, 40) txtName1.Size = New Size(100, 20) ' コントロールをタブに追加します nameTab.TabPage.Controls.Add(txtName1) nameTab.TabPage.Controls.Add(lblName1) ' EndUpdate を呼び出してディスプレイの更新を許可します Me.ultraTabControl1.EndUpdate()