Sub btnSend_Click
If txtMsg.Text.Length > 0 Then
Dim number As String = "+39123456789" 'here goes the phone number of the contact
number = number.Replace("+","").Replace(" ","")
Dim messaggio As String = txtMsg.Text.trim
Dim numero As String = number
Dim Intent1 As Intent
Dim pm As PackageManager
Intent1 = pm.GetApplicationIntent("com.whatsapp")
If Intent1.IsInitialized Then
'If WhatsApp is installed..
Dim Intent2 As Intent
Intent2.Initialize(Intent2.ACTION_VIEW, $"https://wa.me/${numero}?text=${messaggio}"$)
StartActivity(Intent2)
Else
ToastMessageShow("WhatsApp is not installed", True)
Return
End If
End If
CallSub(AccService,"SendWhatsAppMsg")
End Sub
