Dim ChildForm As New TabPage 
        TabControl1.TabPages.Add(ChildForm) 
        TabPage.Controls.Add(RichTextBox)

    Private Sub mnuNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuNew.Click 
        'It adds tabpages at runtime! ALERT THE INTERNETS 
        Dim tabpg As New TabPage() 
        Dim newtext As New RichTextBox 
        newtext.Size = New Size(516, 258) 
        newtext.Location = New Point(0, 0) 
        TabControl1.TabPages.Add(tabpg) 
        tabpg.Controls.Add(newtext) 
        Static intNextDoc As Integer 
        intNextDoc = intNextDoc + 1 
        tabpg.Text = "New Document" & intNextDoc 
        newtext.Show() 
        lblStatus.Text = "New document added." 
    End Sub