this works in vb2005

vb Code:
  1. TabControl1.TabPages.Add("your text")
  2. TabControl1.TabPages(TabControl1.TabPages.Count - 1).Show()
  3. For Each ctrl As Control In TabControl1.TabPages(1).Controls
  4.      Dim newCtrl As Control = Nothing
  5.      If TypeOf ctrl Is Label Then
  6.          newCtrl = New Label
  7.      ElseIf TypeOf ctrl Is TextBox Then
  8.          newCtrl = New TextBox
  9.      ElseIf TypeOf ctrl Is Button Then
  10.          newCtrl = New Button
  11.      End If
  12.      newCtrl.Top = ctrl.Top
  13.      newCtrl.Left = ctrl.Left
  14.      newCtrl.Text = ctrl.Text
  15.      TabControl1.TabPages(TabControl1.TabPages.Count - 1).Controls.Add(newCtrl)
  16. Next