Sub SEND_Click
For Each permission As String In Array(rp.PERMISSION_READ_PHONE_STATE, rp.PERMISSION_SEND_SMS)
rp.CheckAndRequest(permission)
Wait For Activity_PermissionResult (permission As String, Result As Boolean)
If Result = False Then
ToastMessageShow("No permission", True)
Return
End If
Next
Dim msg As String
msg = Command.Text
MySms.Send2("07391846950", msg, True, True)
End Sub