「まず、IEと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