Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
MainForm.Show
CenterForm(MainForm, True)
End Sub
Sub CenterForm(Frm As Form, SecondaryScreen As Boolean)
Dim s As Screen
If Not(SecondaryScreen) Then
s = fx.PrimaryScreen
Else
For Each s As Screen In fx.Screens
If s <> fx.PrimaryScreen Then Exit
Next
End If
Frm.WindowLeft = (s.MaxX + s.MinX) / 2 - Frm.Width / 2
Frm.WindowTop = (s.MaxY + s.MinY) / 2 - Frm.Height / 2
End Sub