向Richtextbox插入控件?该怎么解决

向Richtextbox插入控件?
如何向Richtextbox插入一个任意控件?或者如何用vb写一个可以被RichTedtBox接受的控件?

[解决办法]
dim o as object

set o=controls.add( "VB.CommandButton ", "Cmd1 ",richtextbox1)

向Richtextbox插入了一个VB的标准按钮。其他的控件包括自定义控件都可以用这个方法插入。
[解决办法]
简单点的话,就类似这样:
Private Sub Command1_Click()
Dim objOle As IOLEObject
Set objOle = RichTextBox1.OLEObjects.Add(, , , "MSComCtl2.MonthView.2 ")
End Sub

建议你看看这个:
http://blog.csdn.net/rainstormmaster/archive/2006/02/09/595210.aspx
[解决办法]
关于RTF相关规范可以参考这里：
http://www.cnpopsoft.com/article.asp?id=18