Private Sub Button1_Click
RP.CheckAndRequest(RP.PERMISSION_SEND_SMS)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
Msgbox("Non puoi usare l'applicazione!", "Post notification")
ExitApplication
End If
'[B]THIS WORKS[/B]
'Dim In As Intent
'Dim number = "2222222222" As String
'In.Initialize(In.ACTION_VIEW, "sms:" & number)
'In.PutExtra("sms_body", "this is the body")
'StartActivity(In)
'[B]THIS NO LONGER WORKS[/B]
Dim p As PhoneSms
p.Send("2222222222","This is a message sent from your smartphone")
'p.Send2("2222222222","This is a message sent from your smartphone",False,False)
End Sub