测试通过:
Dim ct As New Windows.Forms.RichTextBoxct.Dock = Windows.Forms.DockStyle.Fille.Form.Controls("Panel1").BaseControl.Controls.Add(ct)