引用：http://zhidao.baidu.com/question/133403436.html

WebBrowser1.Navigate "http://www.baidu.com"

Do
DoEvents
If WebBrowser1.ReadyState = 4 Then MsgBox "载入完成": Exit Do
Loop