Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
Dim tmp As String
Dim x As Int = fx.PrimaryScreen.MaxX
Dim y As Int = fx.PrimaryScreen.MaxY
tmp = x & " - " & y
Log("tmp1="&tmp)
'msg.Show(tmp,"")
MainForm.Show
x = fx.PrimaryScreen.MaxX
y = fx.PrimaryScreen.MaxY
tmp = x & " - " & y
Log("tmp2="&tmp)
'msg.Show(tmp,"")
End Sub