Geocode

// Create a geocode data provider.
geocodeProvider = new BingGeocodeDataProvider {
    BingKey = yourBingKey,
    MaxVisibleResultCount = 1
};
geocodeProvider.LocationInformationReceived += OnLocationInformationReceived;
geocodeProvider.LayerItemsGenerating += OnLayerItemsGenerating;
informationLayer.DataProvider = geocodeProvider;

' Create a geocode data provider.
geocodeProvider = New BingGeocodeDataProvider With {.BingKey = yourBingKey, .MaxVisibleResultCount = 1}
AddHandler geocodeProvider.LocationInformationReceived, AddressOf OnLocationInformationReceived
AddHandler geocodeProvider.LayerItemsGenerating, AddressOf OnLayerItemsGenerating
informationLayer.DataProvider = geocodeProvider

private void requestLocation_Click(object sender, System.EventArgs e) {
    GeoPoint searchPoint;
    if(TryGetLocationArguments(out searchPoint)) {
        geocodeProvider.RequestLocationInformation(searchPoint, 0);
    }
}

bool TryGetLocationArguments(out GeoPoint point) {
    double latitude;
    double longitude;
    if (
        TryConvertLocationCoordinate(teLatitude.Text, minLatitude, maxLatitude, latitudeName, out latitude) && 
        TryConvertLocationCoordinate(teLongitude.Text, minLongitude, maxLongitude, longitudeName, out longitude)) {
        point = new GeoPoint(latitude, longitude);
        return true;
    }
    point = null;
    return false;
}

bool TryConvertLocationCoordinate(string str, double minValue, double maxValue, string valueName, out double value) {
    double convertedValue = String.IsNullOrEmpty(str)
        ? 0
        : Double.Parse(str);
    if((convertedValue > maxValue) || (convertedValue < minValue)) {
        MessageBox.Show(String.Format(msgMinMaxErrorFormatString, valueName, minValue, maxValue));
        value = 0;
        return false;
    }
    value = convertedValue;
    return true;

}

Private Sub requestLocation_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGeocode.Click
    Dim searchPoint As GeoPoint = Nothing
    If TryGetLocationArguments(searchPoint) Then
        geocodeProvider.RequestLocationInformation(searchPoint, 0)
    End If
End Sub

Private Function TryGetLocationArguments(ByRef point As GeoPoint) As Boolean
    Dim latitude As Double = Nothing
    Dim longitude As Double = Nothing
    If TryConvertLocationCoordinate(teLatitude.Text, minLatitude, maxLatitude, latitudeName, latitude) AndAlso TryConvertLocationCoordinate(teLongitude.Text, minLongitude, maxLongitude, longitudeName, longitude) Then
        point = New GeoPoint(latitude, longitude)
        Return True
    End If
    point = Nothing
    Return False
End Function

Private Function TryConvertLocationCoordinate(ByVal str As String, ByVal minValue As Double, ByVal maxValue As Double, ByVal valueName As String, ByRef value As Double) As Boolean
    Dim convertedValue As Double = If(String.IsNullOrEmpty(str), 0, Double.Parse(str))
    If (convertedValue > maxValue) OrElse (convertedValue < minValue) Then
        MessageBox.Show(String.Format(msgMinMaxErrorFormatString, valueName, minValue, maxValue))
        value = 0
        Return False
    End If
    value = convertedValue
    Return True

End Function

private void OnLocationInformationReceived(object sender, LocationInformationReceivedEventArgs e) {
    if(e.Cancelled == true) return;
    if(e.Result.ResultCode != RequestResultCode.Success) {
        meResult.Text = "The Bing Geocode service does not work for this location.";
        return;
    }
    StringBuilder resultList = new StringBuilder("");
    int resCounter = 1;
    foreach(LocationInformation locations in e.Result.Locations) {
        resultList.Append(String.Format("Request Result {0}:\r\n", resCounter));
        resultList.Append(String.Format(locations.EntityType + "\r\n"));
        resultList.Append(String.Format(locations.Address.FormattedAddress + "\r\n"));
        resultList.Append(String.Format("Coordinates: {0}\r\n", locations.Location));
        resultList.Append(String.Format("______________________________\r\n"));
        resCounter++;
    }
    meResult.Text = resultList.ToString();
}

Private Sub OnLocationInformationReceived(ByVal sender As Object, ByVal e As LocationInformationReceivedEventArgs)
    If e.Cancelled = True Then
        Return
    End If
    If e.Result.ResultCode <> RequestResultCode.Success Then
        meResult.Text = "The Bing Geocode service does not work for this location."
        Return
    End If
    Dim resultList As New StringBuilder("")
    Dim resCounter As Integer = 1
    For Each locations As LocationInformation In e.Result.Locations
        resultList.Append(String.Format("Request Result {0}:" & ControlChars.CrLf, resCounter))
        resultList.Append(String.Format(locations.EntityType & ControlChars.CrLf))
        resultList.Append(String.Format(locations.Address.FormattedAddress & ControlChars.CrLf))
        resultList.Append(String.Format("Coordinates: {0}" & ControlChars.CrLf, locations.Location))
        resultList.Append(String.Format("______________________________" & ControlChars.CrLf))
        resCounter += 1
    Next locations
    meResult.Text = resultList.ToString()
End Sub