MainCustomerForm.Initialize("CustomerForm", 790, 490)
MainCustomerForm.RootPane.LoadLayout("QualasCustomer") 'Load the layout file.
MainCustomerForm.Title = "Qualas"
MainCustomerForm.SetOwner(MainForm)
MainCustomerForm.Resizable = False
MainCustomerForm.SetFormStyle("UNIFIED")
Dim acc2Jo As JavaObject = stkAccordion
acc2Jo.RunMethod("setExpanded", Array(True))
MainCustomerForm.Title = "CUSTOMER CARD: " & q_recordidF.text & " " & q_colastF.text
MainCustomerForm.ShowAndWait