Public Class Form1
    Structure MyTab
        Dim Name As String
        Dim ID As Integer
        Dim RTBox As RichTextBox
        Dim txtBox As TextBox
    End Structure
 
    Dim MyTabList As New List(Of MyTab)
    Dim CurrentTab As MyTab
 
 
    Sub NeuTab()
        Dim itemlist As New ArrayList
        itemlist.Add("US")
        itemlist.Add("GE")
        For i As Integer = 0 To itemlist.Count - 1
            Dim AllProdTabPage As New TabPage
            Dim CurTab As New MyTab
            CurTab.Name = "tab" & itemlist.Item(i).ToString
            CurTab.ID = i
            CurTab.RTBox = New RichTextBox
            CurTab.txtBox = New TextBox
            AllProdTabPage.Name = "tab" & itemlist.Item(i).ToString
            AllProdTabPage.Text = itemlist.Item(i).ToString
            Me.tcItemLanguage.Controls.Add(AllProdTabPage)
            AllProdTabPage.Controls.Add(CurTab.txtBox)
            AllProdTabPage.Controls.Add(CurTab.RTBox)
            MyTabList.Add(CurTab)
        Next
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        NeuTab()
    End Sub
End Class