1 2 3 4 5 6 7 8 9 10 11 12
Module DesktopManager Public Sub StartX() Desktop.Show() Desktop.TopMost = False Desktop.FormBorderStyle = FormBorderStyle.None Desktop.WindowState = FormWindowState.Maximized End Sub Public Sub StopX() Desktop.Close() End Sub End Module