Tab Page Problem

[Mr60s]

Hi,

 

Am trying to add a richtextbox to every tab page as they are added, but am all out of ideas now.

 

Any help would be nice.

Thanks!

 

'This only adds tabs not boxes.
Dim i As Integer
       Dim Tab As New TabPage()
       Dim Rich As New RichTextBox()
       Rich.Location = New System.Drawing.Point(-1, 0)
       Rich.Size = New System.Drawing.Size(658, 176)

       For i = 0 To 9
           Tab.Text = "Tab" & i
           tbMain.Controls.Add(Tab)
           Tab.Controls.Add(Rich)
       Next i

[Mr60s]

I can't believe it, every time I post for help I come up whit an answer. :)

 

Anyways i got it to work like this:

       Dim i As Integer

       For i = 0 To 90
           Dim Tab As New TabPage("Tab" & i)
           Dim Rich As New RichTextBox()
           Rich.Location = New System.Drawing.Point(-1, 0)
           Rich.Size = New System.Drawing.Size(658, 176)
           tbMain.Controls.Add(Tab)
           Tab.Controls.Add(Rich)
       Next i