「4日目にも教えたとおり、画面遷移は動作安定化の基礎となる部分だから明示的な待ち受けを行うのが望ましいから」
'サンプルオンラインシステム汎用待ちうけ処理
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