'Here we add TabItems to two TabControls,
'tab1 and tab2.
Dim ti As New TabItem()
ti.Header = "First TabItem!"
ti.Content = "This is the first TabItem's content."
tab1.Items.Add(ti)
ti = New TabItem()
ti.Header = "Second TabItem!"
ti.Content = "This is the second TabItem's content."
tab1.Items.Add(ti)
ti = New TabItem()
ti.Header = "Third TabItem!"
ti.Content = "This is the third TabItem's content."
tab1.Items.Add(ti)
ti = New TabItem()
ti.Header = "First TabItem!"
ti.Content = "This is the first TabItem of the second TabControl."
tab2.Items.Add(ti)
ti = New TabItem()
ti.Header = "Second TabItem!"
ti.Content = "This is the second TabItem of the second TabControl."
tab2.Items.Add(ti)
ti = New TabItem()
ti.Header = "Third TabItem!"
ti.Content = "This is the third TabItem of the second TabControl."
tab2.Items.Add(ti)
'Set tab2's tab strip to run along the bottom of the
'TabControl, rather than the top.
tab2.TabStripPlacement = Dock.Bottom