### Start App in Full Screen Mode

To set the initial window size to full screen:
`Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
'
Dim ps As Screen = fx.PrimaryScreen
MainForm.WindowLeft = ps.MinX
MainForm.WindowWidth = ps.MaxX - ps.MinX
MainForm.WindowTop = ps.MinY
MainForm.WindowHeight = ps.MaxY - ps.MinY
Example Subroutine
'Set a form to fullscreen
'Parameter: Form
`Sub SetFormFullScreen(frm As Form)
Dim ps As Screen = fx.PrimaryScreen
frm.WindowLeft = ps.MinX
frm.WindowWidth = ps.MaxX - ps.MinX
frm.WindowTop = ps.MinY
frm.WindowHeight = ps.MaxY - ps.MinY
End Sub`
`

Changed: 2018-03-01 09:29, Category: Application, File: T6C159M1188.htm, ID: 1188