请问如何使程序运行后WIN桌面上的图标和下面的任务栏能自动隐藏？

Question

建立两个按键 Command1  Command2代码：Private Const SW_HIDE = 0
Private Const SW_NORMAL = 1Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private hTaskWnd As Long
                                               
Private Sub Command1_Click()
    Call ShowWindow(hTaskWnd, SW_HIDE)
End SubPrivate Sub Command2_Click()
    Call ShowWindow(hTaskWnd, SW_NORMAL)
End SubPrivate Sub Form_Load()
    hTaskWnd = FindWindow("shell_traywnd", "")
End Sub

Answer 1

那该如何把WIN桌面上的快捷键图标隐藏呢？