Sub whatsappSendImage(mobile As String,msg As String)
Dim FileName As String = "b4a.png" 'change it
File.Copy(File.DirAssets, FileName, Starter.Provider.SharedFolder, FileName) 'change it
Dim sendIntent As Intent
sendIntent.Initialize(sendIntent.ACTION_MAIN,"")
sendIntent.PutExtra("jid",mobile & "@s.whatsapp.net")
sendIntent.Action=sendIntent.ACTION_SEND
sendIntent.SetPackage("com.whatsapp")
sendIntent.SetComponent("com.whatsapp/.ContactPicker")
sendIntent.SetType("image/png")
sendIntent.PutExtra("android.intent.extra.TEXT",msg)
sendIntent.PutExtra("android.intent.extra.STREAM",Starter.Provider.GetFileUri(FileName))
StartActivity(sendIntent)
End Sub