使用VB.Net和Bing地图进行搜索时显示10个以上的结果

Imports System.Net
Imports System.IO
Imports System.Web.Script.Serialization

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim searchQuery As String = TextBox1.Text
        Dim apiKey As String = "Your_Bing_Maps_API_Key"
        Dim requestUrl As String = "http://dev.virtualearth.net/REST/v1/Locations?query=" & searchQuery & "&key=" & apiKey

        Dim webRequest As HttpWebRequest = DirectCast(WebRequest.Create(requestUrl), HttpWebRequest)
        Dim webResponse As HttpWebResponse = DirectCast(webRequest.GetResponse(), HttpWebResponse)
        Dim responseStream As Stream = webResponse.GetResponseStream()
        Dim reader As New StreamReader(responseStream)
        Dim responseJson As String = reader.ReadToEnd()

        Dim serializer As New JavaScriptSerializer()
        Dim result As BingMapsSearchResult = serializer.Deserialize(Of BingMapsSearchResult)(responseJson)

        For Each location As BingMapsLocation In result.ResourceSets(0).Resources
            ListBox1.Items.Add(location.Name)
        Next
    End Sub
End Class

Public Class BingMapsSearchResult
    Public Property ResourceSets As List(Of BingMapsResourceSet)
End Class

Public Class BingMapsResourceSet
    Public Property Resources As List(Of BingMapsLocation)
End Class

Public Class BingMapsLocation
    Public Property Name As String
End Class