Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
B4XPages.SetTitle(Me, "PIC Bootloader Upload")
B4XPages.GetNativeParent(Me).WindowHeight = 700
B4XPages.GetNativeParent(Me).WindowWidth = 600
' Load all available COM Ports
cmbPort.Items.AddAll(serial1.ListPorts)