VB - Taskleiste verstecken

Private Declare Auto Function FindWindow Lib "user32" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) _
As Integer

Private Declare Auto Sub SetWindowPos Lib "User32" ( _
    ByVal hWnd As Integer, _
    ByVal hWndInsertAfter As Integer, _
    ByVal X As Integer, _
    ByVal Y As Integer, _
    ByVal cx As Integer, _
    ByVal cy As Integer, _
    ByVal wFlags As Integer)
    
Public Sub TaskBarVisible(ByVal Visible As Boolean)
    Dim Handle As Integer = FindWindow("Shell_TrayWnd", "")

    If Visible = True Then
        SetWindowPos(Handle, 0, 0, 0, 0, 0, 64)
    Else
        SetWindowPos(Handle, 0, 0, 0, 0, 0, 128)
    End If
End Sub