&lt;html&gt;
&lt;object classid=&#039;clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B&#039; id=&#039;foo&#039; &gt;&lt;/object&gt;
&lt;input type=&quot;button&quot; value=&quot;Hit me&quot; language=&quot;VBScript&quot; OnClick=&quot;test()&quot;&gt;
&lt;script language=&quot;VBScript&quot;&gt;
sub test()
bar = String(515305, &quot;A&quot;)
foo.SetBgColor bar
End Sub
&lt;/script&gt;
&lt;/html&gt;