当用VB实现隐藏了以后，怎么才能恢复过来呢，先谢各位了

当我隐藏了以前就没办法恢复，麻烦大家帮一下

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function 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 Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
'定义窗口以及子窗口的类名
Private Const sTrayWindow = "Shell_TrayWnd"
Private Const sDesktopIcon = "ShellDll_DefView"
Private Const sProgman = "Progman"
Private Const SW_SHOW = 5
Private Const SW_HIDE = 0
Dim wnd As Long, wnd1 As Long
Dim lbHide As Boolean
Private Sub Command1_Click()
 
End Sub

Private Sub Form_Load()
   Dim i As Integer
    wnd1 = FindWindow(sTrayWindow, vbNullString)
   
    wnd = FindWindow(sProgman, vbNullString)
    wnd = FindWindowEx(wnd, 0, sDesktopIcon, vbNullString)
    If lbHide = False Then
        ShowWindow wnd, SW_HIDE
        ShowWindow wnd1, SW_HIDE
        lbHide = True
    Else
        ShowWindow wnd, SW_SHOW
        ShowWindow wnd1, SW_SHOW
        lbHide = False
    End If
End Sub

怎么才能恢复过来呢，谢谢了

难道这没有人会吗，不可能的，我知道这个论坛里面高手很多啊，不可能没有人会的，高手都出来吧，谢谢了

不知这个对你有用没.
Private Declare Function 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 Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
Private Sub Command2_Click()
    '????×???
    Dim hWnd As Long
    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hWnd, 5
End Sub

Private Sub Command1_Click()
    '????×???
    Dim hWnd As Long
    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hWnd, 0
End Sub

这个可以触觉吗

谢谢了，我上面那代码是桌面的上东西一个都没了，6楼的网友发的那个隐藏只是桌面，开始栏还在。