据说动态创建RichTextBox是有问题的,需要用特殊的技巧。
这里找了一个验证有效的,贴出来,供参考:
Set objRTB = Controls.Add("RICHTEXT.RichtextCtrl.1","rtxt")