Sub Activity_Create(FirstTime As Boolean)
rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE) '
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission to access phone id", "")
Return
Else
Dim id1 As String
Dim pid As PhoneId
id1 = pid.GetDeviceId
Log(id1)
End If
End Sub