ocx参数问题

html文件<HTML>
<HEAD>
<TITLE>工程1.CAB</TITLE>
</HEAD>
<BODY>
<!-- 如果这页上的任何控件需要授权，您必须
创建一个授权包文件。 运行 LPK_TOOL.EXE 来创建
要求的 LPK 文件。 LPK_TOOL.EXE 将从 ActiveX SDK 中找到，
http://www.microsoft.com/intdev/sdk/sdk.htm. 如果您有 Visual
Basic 6.0 CD, 您可以在\Tools\LPK_TOOL 目录下找到它。 下面是对象标记的例子：<OBJECT CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
<PARAM NAME="LPKPath" VALUE="LPKfilename.LPK">
</OBJECT>
--><OBJECT ID="UserControl1"
CLASSID="CLSID:C465D8DF-05C0-4272-914F-181B5E09AA95"
CODEBASE="工程1.CAB#version=1,0,0,0">
    <PARAM NAME="_ExtentX" VALUE="7117">
    <PARAM NAME="_ExtentY" VALUE="3916">
    <PARAM NAME="test11" VALUE="7677676">
    <PARAM NAME="test22" VALUE="7677676">
</OBJECT></BODY>
</HTML>
vb文件
'缺省属性值:
Const m_def_test11 = 0
Const m_def_test22 = 0
'属性变量:
Dim m_test11 As Variant
Dim m_test22 As VariantPrivate Sub UserControl_Initialize()
MsgBox test11()
MsgBox test22()
Text1.Text = test11
Text2.Text = test22
End Sub
'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,0,0,0
Public Property Get test11() As Variant
    test11 = m_test11
End PropertyPublic Property Let test11(ByVal New_test11 As Variant)
    m_test11 = New_test11
    PropertyChanged "test11"
End Property'注意！不要删除或修改下列被注释的行！
'MemberInfo=14,0,0,0
Public Property Get test22() As Variant
    test22 = m_test22
End PropertyPublic Property Let test22(ByVal New_test22 As Variant)
    m_test22 = New_test22
    PropertyChanged "test22"
End Property'为用户控件初始化属性
Private Sub UserControl_InitProperties()
    m_test11 = m_def_test11
    m_test22 = m_def_test22
End Sub'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)    m_test11 = PropBag.ReadProperty("test11", m_def_test11)
    m_test22 = PropBag.ReadProperty("test22", m_def_test22)
End Sub'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)    Call PropBag.WriteProperty("test11", m_test11, m_def_test11)
    Call PropBag.WriteProperty("test22", m_test22, m_def_test22)
End Sub