Sub Activity_Create(FirstTime As Boolean)
GPS1.Initialize("GPS")
GPS1.Start(0,0)
end sub
Sub GPS_LocationChanged (Location1 As Location)
LAT = Location1.ConvertToMinutes(Location1.Latitude)
LONGT = Location1.ConvertToMinutes(Location1.longitude)
end sub