'控件中添加下面的代码
Event OnShutdown()Private Sub CloseButton_Click()
    RaiseEvent OnShutdown
End Sub网页中添加
<OBJECT id=obj1 name=obj1 codeBase="XXXX.ocx" classid="clsid:......."></object>

<script language=vbs>
sub obj1_OnShutdown()
   call  window.close
end sub
</script>