dim pm as packemanager
dim intent as intent
intent.Initialize(intent.ACTION_SEND,"")
intent.PutExtra("text","hello, kattah!" )
intent.SetType("text/plain")
Dim possibleApps As List = pm.QueryIntentActivities(intent)
If possibleApps.IsInitialized Then
Log("your device claims it has " & possibleApps.Size & " app(s) to handle images...")
StartActivity(intent)
End If