Dim iRet,hWeb
hWeb = WebBrowser.Create("chrome","",30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
iRet = WebBrowser.GoURL(hWeb,"www.baidu.com",true,{},30000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})