如何接受ActiveX控件的事件参数

'把下面这段程序编成控件：(工程名.类名)
Option Explicit
'Event Declarations:
Event OnChange(a As String, b As String)
'Default Property Values:
Const m_def_MyName = "gdeljyh"
Const m_def_MySex = "男"
'Property Variables:
Dim m_MyName As String
Dim m_MySex As StringPublic Sub showChange()
     RaiseEvent OnChange(MyName, MySex)
End SubPublic Property Get MyName() As String
    MyName = m_MyName
End PropertyPublic Property Let MyName(ByVal New_MyName As String)
    m_MyName = New_MyName
    PropertyChanged "MyName"
End PropertyPublic Property Get MySex() As String
    MySex = m_MySex
End PropertyPublic Property Let MySex(ByVal New_MySex As String)
    m_MySex = New_MySex
    PropertyChanged "MySex"
End Property'为用户控件初始化属性
Private Sub UserControl_InitProperties()
    m_MyName = m_def_MyName
    m_MySex = m_def_MySex
End Sub'从存贮器中加载属性值
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)    m_MyName = PropBag.ReadProperty("MyName", m_def_MyName)
    m_MySex = PropBag.ReadProperty("MySex", m_def_MySex)
End Sub'将属性值写到存储器
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)    Call PropBag.WriteProperty("MyName", m_MyName, m_def_MyName)
    Call PropBag.WriteProperty("MySex", m_MySex, m_def_MySex)
End Sub'----------------------
假设你编译好后的控件ID为test1;
然后在网面中这样调用：
'---------------Test.Htm----------------
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--
function test1_OnChange(a,b) {
alert(a + "\n" + b);
}function window_onload() {
test1.MyName="hfp";
test1.MySex="male";
test1.showChange();
}//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=test1 EVENT=OnChange(a,b)>
<!--
 test1_OnChange(a,b)
//-->
</SCRIPT>
</HEAD>
<BODY LANGUAGE=javascript onload="return window_onload()"><P>
<OBJECT classid=clsid:97D00AEB-67B7-4609-8CAD-EA2A01732530 id=test1 VIEWASTEXT><PARAM NAME="_ExtentX" VALUE="1667"><PARAM NAME="_ExtentY" VALUE="1376"><PARAM NAME="MyName" VALUE="gdeljyh"><PARAM NAME="MySex" VALUE="男"></OBJECT>
</P></BODY>
</HTML>
要注意的地方：
1.
<SCRIPT LANGUAGE=javascript FOR=test1 EVENT=OnChange(a,b)>
<!--
 test1_OnChange(a,b)
//-->
</SCRIPT>
2.function test1_OnChange(a,b) {
alert(a + "\n" + b);
}其中的OnChange都有两个参数（a,b）