'Google Web Service API User Control Sample Code

    Private Function ProcessSearch() As String

        Dim resultIndex As Integer
        Dim resultTotal As Integer
        Dim sTitle As String
        Dim sbOutput As StringBuilder = New StringBuilder()

        Dim search As GoogleApi.GoogleSearchService = 
            New GoogleApi.GoogleSearchService()

        Dim result As GoogleApi.GoogleSearchResult = 
            search.doGoogleSearch(_key, _query, 0, _maxResults, False, "", False, "", "", "")

        resultTotal = result.resultElements.GetUpperBound(0)

        For resultIndex = 0 To resultTotal

            If (result.resultElements(resultIndex).title <> "") Then
                sTitle = result.resultElements(resultIndex).title
            Else
                sTitle = result.resultElements(resultIndex).URL
            End If

            sbOutput.Append(String.Format(_formatString, (resultIndex + 1), 
               sTitle, result.resultElements(resultIndex).URL, 
               result.resultElements(resultIndex).snippet))

        Next resultIndex

        ProcessSearch = sbOutput.ToString()

    End Function