Sub Button1_Click
Try
Dim i As Intent
i.Initialize("android.intent.action.VIEW", "content://com.android.calendar/time/" &DateTime.DateParse(mes.Text&"/"&dia.Text&"/"&ano.Text))
i.AddCategory("android.intent.category.DEFAULT")'add cat launcher
' i.PutExtra("id", phid)
StartActivity(i)'start the activity
Catch
Log("Error Caught: " & LastException)
End Try
End Sub