html访问vb写的ocx控件中的属性为什么没有反映？（附代码）麻烦各位了

我是在ActiveX中封装了rich text控件，编译成ocx的：我给rich text控件起名为doc
Option ExplicitPrivate m_rtf As StringPublic Property Get rtf() As String
  rtf = m_rtf
End PropertyPublic Property Let rtf(ByVal vNewValue As String)
  m_rtf = vNewValue
  MsgBox ("abcdefghigk")
  
  PropertyChanged "rtf"
  doc.TextRTF = m_rtf
End PropertyPrivate Sub UserControl_Resize()
  doc.Width = UserControl.Width
  doc.Height = UserControl.Height
  doc.Left = 0
  doc.Top = 0
End SubPrivate Sub UserControl_ReadProperties(PropBag As PropertyBag)
    m_rtf = PropBag.ReadProperty("rtf", "")
End SubPrivate Sub UserControl_WriteProperties(PropBag As PropertyBag)
    Call PropBag.WriteProperty("rtf", m_rtf, "")
End Sub在html中是这样调用的：
<HTML>
<HEAD>
<TITLE>这是一个ActiveX控件的测试页面</TITLE>
</HEAD>
<BODY>
<OBJECT ID="docCon"
        CLASSID="CLSID:24E7984F-4CFF-42CD-94D0-EBD99CC8F1EC"  
         width=457
height=140
align=center
hspace=0
vspace=0
>
   <PARAM NAME="rtf" VALUE="ceshi"> 
</OBJECT>
</BODY>
</HTML>
可是在IE中显示不出来值，连msgbox的提示框都显示不出来。
请在机器上试一下告诉我吧