Private Sub sc_OnRecvSimobjectData(ByVal sender As _
          BeatlesBlog.SimConnect.SimConnect, ByVal xdata As _
          BeatlesBlog.SimConnect.SIMCONNECT_RECV_SIMOBJECT_DATA)
            Console.WriteLine("OnRecvSimobjectData")
            Select Case DirectCast(xdata.dwRequestID, Requests)
                Case Requests.WeatherAtLocation
                    ' SimObjectData related to Weather At User's Location, _
                      request interpolated observation
                    If True Then
                        Dim ap As VehiclePosition = DirectCast(xdata.dwData, _
                          VehiclePosition)
                        sc.WeatherRequestInterpolatedObservation( _
                        Requests.WeatherObservation, ap.latitude, ap.longitude, _
                        ap.altitude)
                    End If
                    Exit Select
 
                Case Requests.WeatherNearestLocation
                    ' SimObjectData related to Weather Station Nearest User's _
                      Location, request observation at nearest station
                    If True Then
                        Dim ap As VehiclePosition = DirectCast(xdata.dwData, _
                          VehiclePosition)
                        sc.WeatherRequestObservationAtNearestStation( _
                        Requests.WeatherObservationNearestStation, ap.latitude, _
                        ap.longitude)
                    End If
                    Exit Select
            End Select
        End Sub