Sub Activity_Create(FirstTime As Boolean)
Wait For (ReadIMEI) Complete (Id As String)
Log(Id)
End Sub
Sub ReadIMEI As ResumableSub
Dim rp As RuntimePermissions
rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim p As PhoneId
Return p.GetDeviceId
Else
Return "N/A"
End If
End Sub