Private Declare Function FindWindow Lib \"user32\" Alias \"FindWindowA\" (ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
    Private Declare Function FindWindowEx Lib \"user32\" Alias \"FindWindowExA\" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
    Private Declare Function ShowWindow Lib \"user32\" (ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As IntPtr
   
    Private Const SW_HIDE As Integer = 0
    Private Const SW_SHOW As Integer = 5

   

    \'Nasconde TaskBar
    Public Shared Sub HideTaskBar()
        Dim Taskbar As IntPtr = FindWindow(\"Shell_TrayWnd\", Nothing)
        ShowWindow(Taskbar, SW_HIDE)
    End Sub

    \'Visualizza TaskBar
    Public Shared Sub ShowTaskBar()
        Dim Taskbar As IntPtr = FindWindow(\"Shell_TrayWnd\", Nothing)
        ShowWindow(Taskbar, SW_SHOW)
    End Sub

    \'Nasconde Orologio
    Public Shared Sub HideClock()
        Dim Taskbar As IntPtr = FindWindow(\"Shell_TrayWnd\", vbNullString)
        Dim Systray As IntPtr = FindWindowEx(Taskbar, IntPtr.Zero, \"TrayNotifyWnd\", Nothing)
        Dim Clock As IntPtr = FindWindowEx(Systray, IntPtr.Zero, \"TrayClockWClass\", vbNullString)
        ShowWindow(Clock, SW_HIDE)
    End Sub

    \'Visualizza Orologio
    Public Shared Sub ShowClock()
        Dim Taskbar As IntPtr = FindWindow(\"Shell_TrayWnd\", Nothing)
        Dim Systray As IntPtr = FindWindowEx(Taskbar, IntPtr.Zero, \"TrayNotifyWnd\", Nothing)
        Dim Clock As IntPtr = FindWindowEx(Systray, IntPtr.Zero, \"TrayClockWClass\", Nothing)
        ShowWindow(Clock, SW_SHOW)
    End Sub

    \'Visualizza Icone TaskBar
    Public Shared Sub ShowSysTray()
        Dim Taskbar As IntPtr = FindWindow(\"Shell_TrayWnd\", Nothing)
        Dim Systray As IntPtr = FindWindowEx(Taskbar, IntPtr.Zero, \"TrayNotifyWnd\", Nothing)
        ShowWindow(Systray, SW_SHOW)
    End Sub

    \'Nasconde Icone TaskBar
    Public Shared Sub HideSysTray()
        Dim Taskbar As IntPtr = FindWindow(\"Shell_TrayWnd\", vbNullString)
        Dim Systray As IntPtr = FindWindowEx(Taskbar, IntPtr.Zero, \"TrayNotifyWnd\", Nothing)
        ShowWindow(Systray, SW_HIDE)
    End Sub