Sub BtnSystemOnOff_CheckedChange(Checked As Boolean)
If TextFieldimei.Text.Length = 15 Then
If Starter.GPS1.GPSEnabled = True Then
If BtnSystemOnOff.Checked = True Then
BtnSystemOnOff.Color = Colors.Green
systemon = True
StartService(Starter)
Event = ""
Else
BtnSystemOnOff.Color = Colors.Red
systemon = False
StopService(Starter)
End If
Else
Msgbox(lblgpstextdisable, warningtitle1)
End If
Else
Msgbox(warning1, warningtitle1)
End If
End Sub