[resolved] Dynamic conrtol creation and Collections

[ggprogram]

I am having a problem understanding control collections. My application starts with a TabControl and one TabPage. The TabPage contains a RichTextBox

Through a menu option the user may add additional tab pages. When a tab page is created, a RichTExtBox is placed in it by the program. Basically each page is an index card you can write on.

When I create a new tabpage I use the following code:


Private Sub TopicAddMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TopicAddMenuItem.Click
' Create a new tab and add a rich text box to it

' Set up variables to prompt for Tab name
Dim message, title As String
Dim myValue As Object
message = "Enter Tab Name" ' Set prompt.
title = "SmartPad" ' Set title.



' Set up variables for new Tab page and Rich Text Box
Dim TabPageNew As System.Windows.Forms.TabPage
Dim RichTextBoxNew As System.Windows.Forms.RichTextBox

RichTextBoxNew = New System.Windows.Forms.RichTextBox()
RichTextBoxNew.Location = New System.Drawing.Point(8, 48)
RichTextBoxNew.Name = "RichTextBoxNew"
RichTextBoxNew.Size = New System.Drawing.Size(512, 248)
RichTextBoxNew.TabIndex = 0
RichTextBoxNew.Text = ""

'TabPageNew
'
TabPageNew = New System.Windows.Forms.TabPage()

TabPageNew.Controls.AddRange(New System.Windows.Forms.Control() {RichTextBoxNew})
TabPageNew.Location = New System.Drawing.Point(4, 22)
TabPageNew.Name = "TabPageNew"
TabPageNew.Size = New System.Drawing.Size(528, 302)
TabPageNew.TabIndex = 0

' Display message, title and get the Tab Name
Do
myValue = InputBox(message, title)
Loop Until myValue <> ""


TabPageNew.Text = myValue

' add the control, make the new tab active and bring focus to the rich text box
Me.SmartPadTabControl.Controls.AddRange(New System.Windows.Forms.Control() {TabPageNew})
Me.SmartPadTabControl.SelectedIndex = Me.SmartPadTabControl.TabCount - 1
RichTextBoxNew.Focus()
End Sub

My problem is figuring out how to access the rich text box on any given page.
For example, suppose the user creates five tabs and they each have a richtext box. If the user changes from one page to the next, I want focus to go to the richtextbox on THAT page. How do I do this?

Me.ActiveControl returns the TabControl when you change tab pages, so I have no problem finding which tab page I am now on, but I can't figure out how to get to the rtbox.

Thanks!