用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>