用VB6.0开发了一个Activex，该通过控件接口向导为该空间添加了一个属性kk，kk映射到控件界面上的文本框text1的text属性上，然后在html中中的一个按钮单击事件中用javascript写了如下语句：
alert（ActivexName.kk）
单击该按钮，可以弹出包含text1.text值的消息框

但是我想在用<object>插入该控件时初始化kk属性的值，语句如下：
<param name="kk" value="138">
然后预览该网页，kk属性值并没有被param初始化，网页此时显示不出该控件界面了。

网页代码部分没有问题的，问题一定是出在Active的开发过程上，由于是初次开发Activex，望大虾们指点一下！


界面上只有一个text控件(text1)代码如下：
【vb code】
'注意！不要删除或修改下列被注释的行！
'MappingInfo=Text1,Text1,-1,Text
Public Property Get kk() As String
kk = Text1.Text
End Property

Public Property Let kk(ByVal New_kk As String)
Text1.Text() = New_kk
PropertyChanged "kk"
End Property

'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
Text1.Text = PropBag.ReadProperty("kk", "Text1")
End Sub

'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("kk", Text1.Text, "Text1")
End Sub


【HTML CODE】
<object classid="clsid:92FE1D53-0EE2-430C-8C97-50DD23693F49" id="Control1" width="165" height="159">
<param name="kk" value="138">
</object>