Sub Button_Click
Dim QRpazientePg As Page
QRpazientePg.Initialize("QRpazientePg")
QRpazientePg.RootPanel.LoadLayout("QRpaziente_layout")
Try
imgQrPres.Bitmap = CreateQRcode($"${cd.CodiceRegione},${cd.CodiceRicetta},${cd.CodiceFiscale}"$)
Catch
Log(LastException)
End Try
PresentPage(Main.NavControl, QRpazientePg)
End Sub
Sub PresentPage(Parent As Page, dialog As Page)
Dim no As NativeObject = dialog
no.SetField("modalTransitionStyle", 0)
Dim no2 As NativeObject = Parent
no2.RunMethod("presentModalViewController:animated:", Array(dialog, True))
End Sub