Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1")
MainForm.Show
BBCV.mBase.SetLayoutAnimated(0, .05*MainForm.width, .05*MainForm.Height, .9*MainForm.width, .9*MainForm.Height)
TextEngine.Initialize(MainForm.RootPane)
Dim verticalCenter As Float = .05*MainForm.Height + .4*MainForm.Height
MainForm.Show
BBCV.Text = $"[Alignment=Center][TextSize=20][Color=Black][b]This is a centered Title[/b][/Color][/TextSize][/Alignment]"$
BBCV.mBase.Top = MainForm.RootPane.Height / 2 - BBCV.ForegroundImageView.Height / 2
Dim iv As ImageView = BBCV.ForegroundImageView
Dim bmp As Image = iv.GetImage
'This creates a new imageview with a copy of the image that will be scaled by the print job
'The original BBCV is untouched
Dim newiv As ImageView: newiv.Initialize("")
newiv.SetImage(bmp)
Dim P As Printer = Printer_Static.GetDefaultPrinter
Dim PJ As PrinterJob = PrinterJob_Static.CreatePrinterJob2(P)
Private pl As PageLayout = P.CreatePageLayout(P.GetPrinterAttributes.GetDefaultPaper, PageOrientation_Static.PORTRAIT, 0.5, 0.5, 0.5, 0.5)
PJ.GetJobSettings.SetPageLayout(pl)
If PJ.ShowPrintDialog(Null) Then PJ.PrintPage(ScaleOutput(P, newiv))
PJ.EndJob
End Sub