我觉得控件本身要做好,就是引发事件的时候至少要返回是哪个子对象,比如说:
sub temp_onclick(obj,url)
select case obj
       case "button"
             window.navigate(url)
       .
       .
       .
end select
end sub