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