Option Explicit

Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1

Const SHFS_SHOWTASKBAR = &H1
Const SHFS_HIDETASKBAR = &H2
Const SHFS_SHOWSIPBUTTON = &H4
Const SHFS_HIDESIPBUTTON = &H8
Const SHFS_SHOWSTARTICON = &H10
Const SHFS_HIDESTARTICON = &H20
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2

Const SWP_SHOWWINDOW = &H40
Const SM_CXSCREEN = &H0
Const SM_CYSCREEN = &H1
Const HHTASKBARHEIGHT = 26

Dim bShowMenu As Boolean
Dim bShowStart As Boolean
Dim bShowTaskbar As Boolean
Dim bFullScreen As Boolean
Dim lHwnd As Long

Declare Function GetSystemMetrics Lib "Coredll" ( _
    ByVal nIndex As Long) As Long
    
Declare Function SHFullScreen Lib "aygshell" ( _
    ByVal hwndRequester As Long, _
    ByVal dwState As Long) As Boolean

Declare Function MoveWindow Lib "Coredll" ( _
    ByVal hwnd As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal bRepaint As Long) As Long

Declare Function SetForegroundWindow Lib "Coredll" ( _
    ByVal hwnd As Long) As Boolean

Declare Function GetLastError Lib "Coredll" () As Long

Declare Function ShowWindow Lib "Coredll" ( _
    ByVal hwnd As Long, _
    ByVal nCmdShow As Long) As Long

Declare Function FindWindow Lib "Coredll" Alias "FindWindowW" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
        
Private Sub Form_Load()
    bShowMenu = True
    bShowStart = True
    bShowTaskbar = True
    bFullScreen = False
    lHwnd = Form1.hwnd
    Command1.Caption = "Full Screen"
    Command2.Caption = "Hide Menu"
    Command3.Caption = "Hide Start"
    Command4.Caption = "Hide Taskbar"
    Command4.Visible = False
    Command1.Move 120, 480, 1335, 495
    Command2.Move 120, 1080, 1335, 495
    Command3.Move 120, 1680, 1335, 495
    Command4.Move 120, 2280, 1335, 495
End Sub

Private Sub Form_OKClick()
    App.End
End Sub

Private Sub Command1_Click()
    Dim lret
    If bFullScreen Then
        lret = FindWindow("menu_worker", "")
        If lret <> 0 Then 'window found
            ShowWindow lret, SW_SHOWNORMAL
        End If
        lret = SetForegroundWindow(Me.hwnd)
        lret = MoveWindow(Me.hwnd, 0, HHTASKBARHEIGHT, _
            GetSystemMetrics(SM_CXSCREEN), _
            GetSystemMetrics(SM_CYSCREEN), True)
        Command1.Caption = "Full Screen"
    Else
        'show form full screen
        lret = FindWindow("menu_worker", "")
        If lret <> 0 Then 'window found
            ShowWindow lret, SW_HIDE
        End If
        lret = SetForegroundWindow(Me.hwnd)
        lret = MoveWindow(Me.hwnd, 0, 0, _
            GetSystemMetrics(SM_CXSCREEN), _
            GetSystemMetrics(SM_CYSCREEN) + HHTASKBARHEIGHT, 0)
        Command1.Caption = "Not Full Screen"
    End If
    bFullScreen = Not bFullScreen
    Command4.Visible = bFullScreen
End Sub

Private Sub Command2_Click()
    Dim lret
    lret = SetForegroundWindow(lHwnd)
    If bShowMenu Then
        lret = SHFullScreen(lHwnd, SHFS_HIDESIPBUTTON)
        Command2.Caption = "Show Menu"
    Else
        lret = SHFullScreen(lHwnd, SHFS_SHOWSIPBUTTON)
        Command2.Caption = "Hide Menu"
    End If
    bShowMenu = Not bShowMenu
End Sub

Private Sub Command3_Click()
    Dim lret
    lret = SetForegroundWindow(lHwnd)
    If bShowStart Then
        lret = SHFullScreen(lHwnd, SHFS_HIDESTARTICON)
        Command3.Caption = "Show Start"
    Else
        lret = SHFullScreen(lHwnd, SHFS_SHOWSTARTICON)
        Command3.Caption = "Hide Start"
    End If
    bShowStart = Not bShowStart
End Sub

Private Sub Command4_Click()
    Dim lret
    lret = SetForegroundWindow(lHwnd)
    If bShowTaskbar Then
        lret = SHFullScreen(lHwnd, SHFS_HIDETASKBAR)
        Command4.Caption = "Show TaskBar"
    Else
        lret = SHFullScreen(lHwnd, SHFS_SHOWTASKBAR)
        Command4.Caption = "Hide TaskBar"
    End If
    bShowTaskbar = Not bShowTaskbar
End Sub