' Call BeginUpdate to prevent the display from refreshing as we add individual tabs. ' Note: This MUST be paired with a call to EndUpdate below. Me.ultraTabControl1.BeginUpdate() Dim tabsCollection As UltraTabsCollection = ultraTabControl1.Tabs ' Add Tabs to the Tabs Collection Dim nameTab As UltraTab = tabsCollection.Add("tab1", "Name") Dim addressTab As UltraTab = tabsCollection.Add("tab2", "Address") ' Create controls to be added to the Tabs and set its properties 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) ' Add controls to the Tab nameTab.TabPage.Controls.Add(txtName1) nameTab.TabPage.Controls.Add(lblName1) ' Call EndUpdate to allow the display to refresh Me.ultraTabControl1.EndUpdate()