Sub Activity_PermissionResult(Permission As String, Result As Boolean)
If Permission = rp.PERMISSION_ACCESS_FINE_LOCATION Then
CheckBoxGPS.Checked = Result
If Result = False Then ToastMessageShow("please enable gps + give permissions ...",True)
End If
End Sub