Sub Service_Start (StartingIntent As Intent)
Dim p As Phone
StartingIntent.Initialize("", "")
StartingIntent.SetComponent("com.datasteam.b4a.system.lockscreen/.LockScreenService$LockScreenService_BR")
p.SendBroadcastIntent(StartingIntent)
StopService(StartingIntent)
End Sub