Sub Activity_Click
Dim in As Intent = GetActivityIntent(Activity2)
'add flags here
StartActivity(in)
End Sub
Sub GetActivityIntent (act As Object) As Intent
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim in As JavaObject
in.InitializeNewInstance("android.content.Intent", Array(ctxt, act))
Return in
End Sub