Active Desktop

[reeset]

If I remember correctly, this should do it:

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 SW_SHOW = 5
Private Const SW_HIDE = 0


Private Sub Command1_Click()
Dim Hwnd As Long
    
    On Error Resume Next
    Hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    If Hwnd = 0 Then
        Exit Sub
    End If
    
    
    ShowWindow Hwnd, SW_HIDE
End Sub


Private Sub Command2_Click()
 Dim Hwnd As Long
    On Error Resume Next
    Hwnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    If Hwnd = 0 Then
        Exit Sub
    End If
    
    ShowWindow Hwnd, SW_SHOW
End Sub

Hope this helps.