「そのあと、各フレームの中に表示されたHTML文書の待ち受けを行う」
'サンプルオンラインシステム汎用待ちうけ処理
Private Sub
waitNavigation(ie As InternetExplorer)
Dim i As Integer
'IE待ちうけ
Do While ie.Busy Or
ie.ReadyState < READYSTATE_COMPLETE
DoEvents
Loop
'フレームセットのドキュメント待ちうけ
Do While
ie.document.ReadyState <> "complete"
DoEvents
Loop
'フレーム内のドキュメント待ちうけ
For i = 0 To ie.document.frames.Length -
1
Do
While ie.document.frames(i).document.ReadyState
<> "complete"
DoEvents
Loop
Next
End Sub