Sub Class_Globals
Private MyGPS As GPS
End Sub
Public Sub Initialize
MyGPS.Initialize("MyGPS")
If MyGPS.GPSEnabled = False Then
StartActivity(MyGPS.LocationSettingsIntent) 'Will open the relevant settings screen.
Else
MyGPS.Start(0, 0)
End If
End Sub
Public Sub Destroy()
MyGPS.Stop
End Sub
Private Sub MyGPS_NMEA (TimeStamp As Long, Sentence As String)
Log(Sentence)
End Sub