Private Sub whats_Click
Try
If Main.App.CanOpenUrl($"sms:"$) = False Then
xui.MsgboxAsync("Non riesco ad aprire app per sms", "non posso inviare sms")
Else
Main.App.OpenUrl($"sms:${nrtelprof}&body=${testo}"$)
End If
hd.ToastMessageShow("Inviato Messaggio",False)
Catch
xui.MsgboxAsync(LastException.Message, "Errore invio SMS")
End Try
End Sub