Sub btnPresent_Click
PresentPage(Page1, page2)
End Sub
Sub btnDismiss_Click
DismissPage(Page1)
End Sub
Public Sub PresentPage(Parent As Page, NewPage As Page)
Dim no As NativeObject = Parent
no.RunMethod("presentViewController:animated:completion:", Array(NewPage, True, Null))
End Sub
'Pass the parent page!
Public Sub DismissPage(Parent As Page)
Dim no As NativeObject = Parent
no.RunMethod("dismissViewControllerAnimated:completion:", Array(True, Null))
End Sub