IEのお気に入りについて

WebBrowserにお気に入りを表示させる所までは出来ました。
そこでWebBrowser2にお気に入りを表示させて行きたいサイトをクリックまたはダブルクリック
するとWebBrowser1でそのサイトを表示させたいのですが方法が分かりません。
わかる方教えていただくと嬉しいです(泣)

WebBrowser2に表示させているのがお気に入りのリストだけなら
WebBrowserを使う必要がないのでは？例えばListViewとかでも
よいと思います。そうすれば各ListViewItemにリンク先情報を持たせて
おけばNavigateするだけでよいかと思います。

いろいろ探してみましたがよく分かりませんでしたorz
ListViewにIEのお気に入りを表示するプログラムよかったら教えていただけないでしょうか？？
探してみたんですけど見つからなくて（泣）

ここに
http://note.phyllo.net/?eid=540651

お気に入りをTreeViewに設定するC#のサンプルが
載っていますので参考にしてみて下さい。

ページがありません。
あとCではないです（泣）

ページは僕の確認では存在していましたよ。
正しくURLを入力しましたでしょうか?

C#のCodeはVBととても互換性が高いので、
変換が容易にできます。
確かこちらのVB中学校でも解説されていたかと思います。
また、変換Toolもいくつか存在します。
たとえば、
http://www.developerfusion.com/tools/convert/csharp-to-vb/
を使えば一瞬で変換してくれて便利です。
もっとも、いつも正しく変換してくれるとは限りませんが。
でも高精度なので大体は大丈夫かと。

ツリー構造なしでListViewに羅列してます。
ListView1.ItemActivateでNavigateするようにしてあります。

    Private Class clsItemFavorite

        Inherits ListViewItem



        Public Property LinkURL



        Public Sub New(ByVal Title As String, ByVal LinkURL As String)

            MyBase.New(Title)

            Me.LinkURL = LinkURL

        End Sub

    End Class



    Public Sub New()

        ' この呼び出しはデザイナーで必要です。 

        InitializeComponent()



        ' InitializeComponent() 呼び出しの後で初期化を追加します。 

        ReadFavorites()

    End Sub



    Private Sub ReadFavorites()

        Dim dirFav As New DirectoryInfo(Environment.GetFolderPath(Environment.SpecialFolder.Favorites))



        ListView1.Items.Clear()

        For Each objFile In dirFav.GetFiles("*.URL", SearchOption.AllDirectories)

            Dim strLines = File.ReadAllLines(objFile.FullName)

            Dim strURL = ""

            For Each strLine In strLines

                If strLine.StartsWith("URL=") Then

                    strURL = strLine.Substring(4)

                End If

            Next





            Dim itm As New clsItemFavorite(objFile.Name.Replace(objFile.Extension, ""), strURL)

            ListView1.Items.Add(itm)

        Next

    End Sub



    Private Sub ListView1_ItemActivate(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.ItemActivate

        If ListView1.SelectedItems.Count > 0 Then

            Dim itm = DirectCast(ListView1.SelectedItems(0), clsItemFavorite)

            WebBrowser1.Navigate(itm.LinkURL)

        End If

    End Sub

(削除されました)

修正：

> Public Property LinkURL
を　Public Property LinkURL as String

型の記述が抜けてました。 


> strURL = strLine.Substring(4)
の後にExit Forがないと処理が無駄でした。

(削除されました)

ありがとうございます。
お陰さまでできました！！