手書きで入力した住所の位置をBing Maps SDKで地図上に表示するには：2カ月で160本作った還暦開発者が送る10のアプリ開発ノウハウ（8）（5/5 ページ）

    Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)
        Dim myResult = DirectCast(e.Parameter, MapPosition)
        Dim myLatitude = myResult.myLatitude
        Dim myLongitude = myResult.myLogitude
        Dim myAddress = myResult.myAddress
        myMap.Center = New Location(CDbl(myLatitude), CDbl(myLongitude))
        addressTextBox.Text = myAddress
        Dim myEllipse As New Ellipse
        With myEllipse
            .Fill = New SolidColorBrush(Colors.Crimson)
            .StrokeThickness = 3
            .Stroke = New SolidColorBrush(Colors.Navy)
            .Width = 30
            .Height = 30
        End With
        Dim myStackPanel As New StackPanel
        myStackPanel.Margin = New Thickness(5)
        myStackPanel.Background = New SolidColorBrush(Colors.Navy)
        myStackPanel.Visibility = Xaml.Visibility.Collapsed
        Dim myTextBlock As New TextBlock
        myTextBlock.Foreground = New SolidColorBrush(Colors.Red)
        myTextBlock.FontSize = 24
        myTextBlock.Text = myAddress
        myStackPanel.Children.Add(myTextBlock)
        Dim myLocation As Location
        myLocation = New Location(CDbl(myLatitude), CDbl(myLongitude))
        MapLayer.SetPosition(myEllipse, myLocation)
        myMap.Children.Add(myEllipse)
        myMap.SetView(myLocation, 12)
        MapLayer.SetPosition(myStackPanel, New Location(CDbl(myLatitude), CDbl(myLongitude)))
        myMap.Children.Add(myStackPanel)
        AddHandler myEllipse.Tapped, Sub()
                                         myStackPanel.Visibility = Xaml.Visibility.Visible
                                     End Sub
        AddHandler myStackPanel.Tapped, Sub()
                                            myStackPanel.Visibility = Xaml.Visibility.Collapsed
                                        End Sub
    End Sub
End Class