IE制御でのタブの処理について

vb.netでIEを制御するアプリを作成するために、それに必要な知識をネット上で収集しています。
下記のコードを部分的に借用させて頂こうとしていますが、行番号31のDebug.Printで出力される内容が"http://www.yahoo.co.jp/"ではなく、"about:blank"です。どうしてでしょうか？

1 Public Class Form1
2 Private Const IE_MAX As Integer = 5
3 Private Const NAV_OPEN_IN_NEW_TAB As Integer = &H800
4 Private Const NAV_OPEN_IN_BACKGROUND_TAB As Integer = &H1000
5
6 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
7
8 'IE起動＆タブを５つまで開く
9 Dim objShell As Object = CreateObject("Shell.Application")
10 Dim objIE As SHDocVw.InternetExplorer = _
11 CreateObject("InternetExplorer.Application")
12 Dim count As Integer
13 Dim ieList As New List(Of SHDocVw.InternetExplorer)
14 objIE.Visible = True '可視
15 While count < IE_MAX
16 If count = 0 Then
17 objIE.Navigate("about:blank")
18 Else
19 objIE.Navigate("about:blank", NAV_OPEN_IN_BACKGROUND_TAB)
20 End If
21 System.Threading.Thread.Sleep(1000) 'ある程度の時間Sleepしないと、異なるタブで開けない
22 ieList.Add(objShell.Windows.Item(objShell.Windows.Count - 1))
23 count += 1
24 End While
25 Application.DoEvents()
26
27 'タブ１と２でサイトを表示
28 ieList.Item(0).Navigate("http://www.google.co.jp/")
29 ieList.Item(1).Navigate("http://www.yahoo.co.jp/")
30
31 　　　 Debug.Print(ieList.Item(1).document.URL)
32
33 End Sub
34 End Class

環境は、Windows 7、VB 2010 Expressです。
ご教示の程、よろしくお願い致します。

No.1 ベストアンサー 回答者： shitaba 回答日時： 2015/01/10 20:16

Navigate メソッドで呼び出したページの読み込みが完了する前に

内容を取得しようとしているからです。（Navigate メソッドは
ページの取得要求を出したら、ページが実際に取得されるのを待た
ずに即処理が返ってくる仕様です）

よって『ページが取得されるのを待つ処理』を、きちんと自分で
実装しないとうまく動きません。SHDocVw.InternetExplorer の
ReadyState プロパティについて調べてみてください。

※ なお、VB.NET での IE 利用であれば、SHDocVw ではなく
　 WebBrowser クラスのほうが使いやすいですよ。

この回答へのお礼

インデントのない読みにくいソースコードすみませんでした。
お教え頂きましたように『ページが取得されるのを待つ処理』を追加したところ、期待する結果を得ることができました。
早速の回答ありがとうございました。

お礼日時：2015/01/10 21:05