(Resolvido) Referência a Richtextbox criado dinamicamente

[Lucas Phillip]

Pessoal, tudo beleza?

Seguinte, meu programa tem um tabcontrol. Só que eu preciso ficar criando tabelas com um richtextbox dentro delas. Fazer isso é facil. O problema é que não estou conseguindo fazer referência ao richtextbox criado para poder escrever algo nele..

Eu uso o seguinte metodo para criar:

Public Sub createtab(ByVal name As String)
        Dim newtab As New TabPage
        Dim newchat As New RichTextBox

        newtab.Text = name
        newtab.Name = "tab_" & name
        newchat.Dock = DockStyle.Fill
        newchat.Name = "tab_chat_" & name
        newchat.Enabled = False

        tabs.TabPages.Add(newtab)
        tabs.TabPages.Item("tab_" & name).Controls.Add(newchat)
    End Sub

e para modificar o richtextbox criado, eu estava tentando fazer assim:

Dim pmbox As RichTextBox = CType(Me.Controls.Item("tab_chat_" & tabs.SelectedTab.Text), RichTextBox)

            pmbox.SelectionStart = Len(pmbox.Text)
            pmbox.SelectedText = cMain.uUser & ": "
            pmbox.SelectedRtf = escreve.Rtf
            pmbox.ScrollToCaret()

só que está gerando uma NullReferenceException

Como eu faço para fazer isso corretamente?

Vlw

[Lucas Phillip]

Aew.. acabei conseguindo resolver eu mesmo.

Para quem tiver a mesma dúvida algum dia, eu só troquei

Dim pmbox As RichTextBox = CType(Me.Controls.Item("tab_chat_" & tabs.SelectedTab.Text), RichTextBox)

por

Dim controles As Control() = Controls.Find("tab_chat_" & tabs.SelectedTab.Text, True)
Dim pmbox As RichTextBox = CType(controles(0), RichTextBox)

Flws :D