Sub Button6_Click
If gps1.GPSEnabled=False Then
'Msgbox(1,23)
ToastMessageShow("Please enable your device's GPS capabilities", True)
'StartActivity(gpsClient.LocationSettingsIntent)
Else
'Msgbox(1,22)
Main.rp.CheckAndRequest(Main.rp.PERMISSION_ACCESS_FINE_LOCATION)
'Msgbox(1,25)
gps1.Start(0, 0)
'Msgbox(1,2)
ProgressDialogShow("Waiting for GPS location")
gpsStarted = True
Msgbox(1,4)
End If
End Sub
If gps1.GPSEnabled=False Then
'Msgbox(1,23)
ToastMessageShow("Please enable your device's GPS capabilities", True)
'StartActivity(gpsClient.LocationSettingsIntent)
Else
'Msgbox(1,22)
Main.rp.CheckAndRequest(Main.rp.PERMISSION_ACCESS_FINE_LOCATION)
'Msgbox(1,25)
gps1.Start(0, 0)
'Msgbox(1,2)
ProgressDialogShow("Waiting for GPS location")
gpsStarted = True
Msgbox(1,4)
End If
End Sub