Sub AskForPermission
rp.CheckAndRequest (rp.PERMISSION_READ_PHONE_STATE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
CallSubDelayed(Me, "Sub_is_finished")
End Sub
Sub Activity_Create(FirstTime As Boolean
If FirstTime = True Then
AskForPermission
Wait For Sub_is_finished
End If
Do_More_Things
End Sub