Question Google search does not return more than 60 results :(

[Remote]

Please help my google search results shown in a listbox are two few I want a thousand

Please help my Google search results shown in a list box are two few I want a thousand links to be shown but at maximum they show 30
Please help thanks.

My code is below, I have two input boxes one for searched keywords and one for the number of results I enter although I enter 1000 etc or 400 I still only get maximum 30 results.

Imports Google.API
Imports Google.API.Search

Public Class GoogleResults

Dim amountToSearchFor As Integer '/// here you specify the amount of results to limit the search to.

Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click

If KeywordSearch.Text.Length > 0 And Not SearchNumber.Text = "" Then
amountToSearchFor = SearchNumber.Text
SearchResultsList.Items.Clear()
Dim cl As New GwebSearchClient("http://www.google.co.uk/")


Dim rtnList As IList(Of IWebResult) = cl.Search(KeywordSearch.Text, amountToSearchFor)

For Each itm As IWebResult In rtnList
SearchResultsList.Items.Add(itm.Url) '/// itm.Title gives the title of the page it's found, itm.Content describes the content
Next
Else
MsgBox("Enter keywords to search and Number of Results")

End If


End Sub

Thank you

 

[Remote]

Google search does not return more than 60 results

Can someone please fix it. I would like 100 results to be returned
My code is below...

Imports Google.API
Imports Google.API.Search

Public Class Form1
Dim amountToSearchFor As Integer

Private Sub Go_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Go.Click
If KeywordSearch.Text.Length > 0 And Not SearchNumber.Text = "" Then
amountToSearchFor = 100
SearchResultsList.Items.Clear()
Dim cl As New GwebSearchClient("http://www.google.co.uk/")


Dim rtnList As IList(Of IWebResult) = cl.Search(KeywordSearch.Text, amountToSearchFor)

For Each itm As IWebResult In rtnList
SearchResultsList.Items.Add(itm.Url) '/// itm.Title gives the title of the page it's found, itm.Content describes the content
Next
Else
MsgBox("Enter keywords to search and Number of Results")

End If
End Sub
End Class