Android Code Snippet Whatsapp Send Function

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

'Don't miss the code in the manifest editor!!!