Dim iWidth As Integer = Screen.PrimaryScreen.Bounds.Width
Dim iHeight As Integer = Screen.PrimaryScreen.Bounds.Height
Me.Width = iWidth
Me.Height = iHeight
Me.Location = New System.Drawing.Point(0, 0)
Public Sub FullScreen(ByVal frm As Form, ByVal boolTopOptional As Boolean)
frm.WindowState = FormWindowState.Maximized
frm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
Me.TopMost = boolTopOptional
SetWindowPos(frm.Handle, HWND_TOP, 0,0, ScreenX, ScreenY, SWP_SHOWWINDOW)
End Sub