其实用处不算很大，因为这样的ocx要运行的话，必须要有数字签名，还需要别人同意安装，不然就会每次提示你，什么什么不安全之类的话。
在vb里面建立一个activex控件，然后在外接程序菜单里面选activex控件接口向导（如果没有的话，在外接程序管理器里加一个）
在这里面就可以定义想要的method, property, event了，如果要想在client script 调用的话，就要在设置映射的那一步，映射到控件的成员上去。
完成后，它会给你加上这样的代码（我加了一个mousemove事件）
event mousemove(button as integer, shift as integer, x as single, y as single) 'mappinginfo=usercontrol,usercontrol,-1,mousemove
private sub usercontrol_mousemove(button as integer, shift as integer, x as single, y as single)
raiseevent mousemove(button, shift, x, y)
end sub
这样就可以在客户端脚本响应这个事件了
<script language=vbscript>
sub obj1_mousemove(button, shift, x, y)
if button = 4 then msgbox(x & "," & y)
end sub
</script>
在javascript里面我还不知道如何取得button，shift， x，y这些参数，不过activex也只能在ie里面用，所以也无所谓了。
加一个属性的代码就要麻烦多了，幸好不用自己写
'注意！不要删除或修改下列被注释的行！
'mappinginfo=usercontrol,usercontrol,-1,backcolor
public property get backcolor() as ole_color
backcolor = usercontrol.backcolor
end property
public property let backcolor(byval new_backcolor as ole_color)
usercontrol.backcolor() = new_backcolor
propertychanged "backcolor"
end property
'从存贮器中加载属性值
private sub usercontrol_readproperties(propbag as propertybag)
usercontrol.backcolor = propbag.readproperty("backcolor", &h8000000f)
end sub
'将属性值写到存储器
private sub usercontrol_writeproperties(propbag as propertybag)
call propbag.writeproperty("backcolor", usercontrol.backcolor, &h8000000f)
end sub
其它的就和写普通的activex component一样了。
