如何创建一个类似FlashGet右键菜单启动程序

Sub AddLink(Url,Info) 
On Error Resume Next
set JetCarCatch=CreateObject("JetCar.Netscape")
if err<>0 then
MsgBox("FlashGet not properly installed!"+ vbCrLf+"Please install FlashGet again")
else
call JetCarCatch.AddUrl(Url, Info, external.menuArguments.document.Url)
        end if
end sub
这是FlashGet的jc_link.htm里的脚本，不明的CreateObject("JetCar.Netscape")中JetCar.Netscape这个ActiveX控件如何创建，请各各大侠多指点！！！
最好给个实例，谢谢！！！