Imports System.Device.Location
Partial Public Class MainPage
    Inherits PhoneApplicationPage
    Dim Timer As System.Windows.Threading.DispatcherTimer = New System.Windows.Threading.DispatcherTimer
    ' Constructor
    Public Sub New()
        InitializeComponent()
        Dim watcher As New GeoCoordinateWatcher
        Timer.Interval = New TimeSpan(0, 0, 0.1)
        AddHandler Timer.Tick, AddressOf Me.AzionaTimer
        AddHandler watcher.PositionChanged, AddressOf Me.watcher_PositionChanged
    End Sub

    Public Sub watcher_PositionChanged()
        Dim watcher As New GeoCoordinate
        Button1.Content = watcher.Course
        Ruota(watcher.Course)
    End Sub
   
 Public Sub AzionaTimer()
        Dim watcher As New GeoCoordinate
        Ruota(watcher.Course)
    End Sub
    
Public Sub Ruota(ByVal gradi)
        If Image1.Projection Is Nothing Then
            Dim planeProjection As New PlaneProjection()
            planeProjection.RotationZ = gradi
            Image1.Projection = planeProjection
        End If
    End Sub

    Private Sub PhoneApplicationPage_Loaded(sender As System.Object, e As System.Windows.RoutedEventArgs) Handles MyBase.Loaded
        Try
            Dim watcher As New GeoCoordinate
            Dim ruotaZ As Double = watcher.Course
            If Image1.Projection Is Nothing Then
                Dim planeProjection As New PlaneProjection()
                planeProjection.RotationZ = ruotaZ
                Image1.Projection = planeProjection
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

    End Sub
End Class