検索窓をつくる

です。
Googleの検索窓を作ろうとおもっているのですが、例えば、「123」と入力されたら、ListBoxなどにその候補を出す方法などはありませんか？

わかりにくくてすいません。
お願いします。

Googleの場合、
①たとえば、「vb」と入力すると、「vba」、「vbs」、「vb.net」などがTextBoxからびろーんと伸びて表示されますが、これを実現したいということでしょうか？
②それとも、「vb」と入力すると、「vb」について書いてあるWebサイトの一覧が検索結果として表示されますが、これを実現したいということでしょうか？

①であれば、TextBoxのオートコンプリート機能(AutoCompleteSourceプロパティなど)で実現できます。
②であれば、自分で検索対象から結果を抽出するプログラムを書いて実現します。検索対象はWebサイトでしょうか？

①です。
文字が入力されたときに、自動的にインターネットから候補を取得して、・・・。

IE7とIE8(IE9も？)の右上にある検索ボックスみないなものを作りたいのです。
↓のようなものです。

(削除されました)

申し訳ありません。

前の返信に、「高校生」と書いてあるのですが、実は中学生です。
選択ミスです。すいません。

Google Suggest APIというのがあるそうですよ

候補を表示する機能は、
前に書いたようにTextBoxのオートコンプリート機能(AutoCompleteSourceプロパティなど)で実現できます。
詳細は、クラスライブラリ詳解のTextBox の「６．オートコンプリート」で説明しています。
http://homepage1.nifty.com/rucio/main/dotnet/ClassLibrary/L006_System.Windows.Forms.TextBox.htm


で、その候補をどこから持ってくるかはこれとは別に自分で考える必要があります。
ぺぺたろうさん紹介のGoogle Suggest APIは私は使ったことはありませんが、その手段の１つとして使えそうです。

GoogleのAPIは、検索するときに使おうと思います。

候補は、自分で作ってみようと思います。

解決次第、ご報告させて頂きます。

僕が紹介したのは候補のAPIなのですが・・・

ぺぺたろうさん、すいません。
少ししか調べてなかったので、検索用のAPIだと思っていました。

使ってみます。

一応作れたのですが、候補が更新されません。

    Private Sub TextBox1_ModifiedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.ModifiedChanged

        AddSource(SuggestGoogle(TextBox1.Text))

    End Sub



    Public Function SuggestGoogle(ByVal text As String)

        Dim client As System.Net.WebClient = _

          New System.Net.WebClient()



        Dim url As String

        url = "http://www.google.com/complete/search?hl=en&q=" & text & "&output=toolbar"



        Dim wkStream As System.IO.Stream = _

          client.OpenRead(url)



        Dim sr As StreamReader = _

          New StreamReader(wkStream, _

                System.Text.Encoding.GetEncoding("euc-jp"))

        Dim html As String = sr.ReadToEnd()



        sr.Close()

        wkStream.Close()



        Return html

    End Function



    Public Sub AddSource(ByVal source As String)

        Dim data As XDocument = XDocument.Parse(source)

        For Each SData In data.Root.<CompleteSuggestion>.<toplevel>

            TextBox1.AutoCompleteCustomSource.Add(SData.@CompleteSuggestion)

        Next

    End Sub