Dim inten As Intent
inten.Initialize(inten.ACTION_SEND,"")
inten.SetType("image/*")
inten.PutExtra("android.intent.extra.STREAM", CreateFileProviderUri(Starter.SharedFolder, "myimage.jpg"))
Dim IntentInstagram As String
Dim pm As PackageManager
For Each cn As String In pm.QueryIntentActivities(inten)
If (cn.SubString2(0,21) = "com.instagram.android") And (cn.Contains("ShareHandlerActivity")) Then
IntentInstagram = cn
Exit
End If
Next
inten.SetComponent(IntentInstagram)
StartActivity(inten)