WebBrowser1.Navigate "http://www.baidu.com" Do DoEvents If WebBrowser1.ReadyState = 4 Then MsgBox "載入完成": Exit Do Loop