只能动态添加上去,不是很简单吗?如
Dim rtxt As New Windows.Forms.RichTextBox
rtxt.Name = "myTextBox"e.Form.Controls("Panel1").BaseControl.Controls.Add(rtxt)