Sub ImageView01_Click
Dim i As Intent
i.Initialize(i.ACTION_VIEW, "tel:")
StartActivity(i)
ToastMessageShow("Phone", True)
End Sub
Sub ImageView02_Click
Dim pm As PackageManager
Dim i As Intent
i = pm.GetApplicationIntent("com.google.android.gm")
StartActivity(i)
ToastMessageShow("GMail", True)
End Sub
Sub ImageView03_Click
Dim pm As PackageManager
Dim i As Intent
i = pm.GetApplicationIntent("com.android.calendar")
StartActivity(i)
ToastMessageShow("Calendar", True)
End Sub
Sub ImageView04_Click
Dim pm As PackageManager
Dim i As Intent
i = pm.GetApplicationIntent("com.android.chrome")
StartActivity(i)
ToastMessageShow("Web", True)
End Sub