Private Declare Fun（百度傻）ction FindWindowEx Lib "user32" Alias _
    "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As _
    Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Fun（百度傻）ction ShowWindow Lib "user32" (ByVal _
    hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Fun（百度傻）ction FindWindow Lib "user32" Alias _
    "FindWindowA" (ByVal lpClassName As String, ByVal _
    lpWindowName As String) As Long
Const SW_HIDE = 0
Const SW_SHOW = 5
Dim bx As Boolean

Private Sub Form_Click()
    Dim hLong As Long
    Dim hwnd As Long
    
    hwnd = FindWindow("Shell_TrayWnd", vbNullString)
    hLong = FindWindowEx(hwnd, 0, "Button", vbNullString)
    If bx Then
        ShowWindow hLong, SW_SHOW
        bx = False
    Else
        ShowWindow hLong, SW_HIDE
        bx = True
    End If
End Sub