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' return True if ActiveDesktop is activeFunction ActiveDesktop() As Boolean    Dim hWindow As Long        ' get the handle of Program Manager window    hWindow = FindWindowEx(0, 0, "Progman", vbNullString)        ' search for its child SHELLDLL_DefView window    If hWindow Then        hWindow = FindWindowEx(hWindow, 0, "SHELLDLL_DefView", vbNullString)        ' finally, search for the Internet Explorer_Server grandchild window        If hWindow Then            ' if this call returns a non-zero handle, the computer            ' is using ActiveDesktop            If FindWindowEx(hWindow, 0, "Internet Explorer_Server", _                vbNullString) Then                ActiveDesktop = True            End If        End If    End If    End Function