Ayuda con TabPages y RichTextBox!

[Y0tta]

Tengo que crear una interfaz grafica que a traves de un boton agregue TabPages a un TabControl, y necesito que los TabPages contengan un RichTextBox dento de ellos. Tengo una porción de codigo que me genera estas cosas, pero mi problema es que luego necesito cargar archivos a los RichTextBox pero no logro conseguirlo, supongo que es porque no les doy un nombre a los RichTextBox... Les dejo lo que tengo y espero su ayuda o ideas para conseguir mi objetivo, muchas gracias...

Código (vbnet) [Seleccionar] Expandir



Dim pestana As New TabPage()

       

       Dim TextB As New Control()
       TextB = New RichTextBox

       TextB.Location = New Point(6, 6)
       TextB.AutoSize = False
       TextB.Size = New Size(317, 393)


       pestana.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)
       TabControl1.TabPages.Add(pestana)
       TextB.Parent = pestana

       TabControl1.SelectedTab = pestana



[Eleкtro]

¿Exactamente qué problema encuentras para cargar archivos?, puedes hacerlo de esta manera:

Código (vbnet,10) [Seleccionar] Expandir

Dim tab As New TabPage With {.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)}
TabControl1.TabPages.Add(tab)

Dim rtb As  New RichTextBox
With rtb
   .Location = New Point(6, 6)
   .AutoSize = False
   .Size = New Size(317, 393)
   .Parent = tab
   .LoadFile("C:\Archivo.rtf", RichTextBoxStreamType.RichText)
End With

TabControl1.SelectedTab = tab

Siempre puedes mantener una referencia al control para utilizarlo más tarde:

Código (vbnet,1,22) [Seleccionar] Expandir

Friend WithEvents RichTextBox1 As RichTextBox

Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Shown

   Dim tab As New TabPage With {.Text = "Pestaña" & (TabControl1.TabPages.Count + 1)}
   TabControl1.TabPages.Add(tab)

   Me.RichTextBox1 = New RichTextBox
   With Me.RichTextBox1
       .Location = New Point(6, 6)
       .AutoSize = False
       .Size = New Size(317, 393)
       .Parent = tab
   End With

   TabControl1.SelectedTab = tab

End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

   Me.RichTextBox1.LoadFile("C:\Archivo.rtf", RichTextBoxStreamType.RichText)

End Sub

Saludos