漏れのbotで俳諧するプログラムでは、こんな感じのコード書いてるけど、もっと良い方法もあるかもね。


WebBrowser1.Document.GetElementsByTagName("A").Item(21).InvokeMember("Click") 'サイトのリンクをクリック
Application.DoEvents() '「命令されたことをすぐやれ」という命令　　コレでウェブブラウザーを即時表示させる。
OpenWebWait() '読み込み終わりを待つ

'2秒待機して読み込み終わりかを判断するファンクション
Public Function OpenWebWait() As Boolean
Try
'2秒間ほど待機
System.Threading.Thread.Sleep(2000) '2秒間
'読み込み完了まで待つ
Do While (WebBrowser1.IsBusy OrElse _
WebBrowser1.ReadyState <> WebBrowserReadyState.Complete)
'無処理
System.Windows.Forms.Application.DoEvents()
System.Threading.Thread.Sleep(100)
Loop
Return True
Catch ex As Exception
Return False
End Try
End Function