VB判断webbrowser网页加载完毕

'====VB判断webbrowser网页加载完毕

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If (pDisp Is WebBrowser1.Object) Then
Msgbox "网页下载完毕!"
End If
End Sub