Ab dem Internet Explorer 4.x wurde der Active Desktop eingeführt,
    mit dem Sie das Aussehen der Windowsumgebung anpassen können.
    Folgender Code ermittelt, ob der Active Desktop aktivier ist oder nicht:

ERFORDERLICHE OBJEKTE

   --- keine ---

 FORM-CODE

   Private Declare Function FindWindowEx& Lib "user32" Alias _
      "FindWindowExA" (ByVal hWndParent&, ByVal _
      hWndChildAfter&, ByVal lpClassName$, ByVal  lpWindowName$)

   Function IE4ActiveDesktop() As Boolean
      Dim Templong&
      Templong = FindWindow("Progman", vbNullString)
      Templong = FindWindowEx(Templong, 0&, "SHELLDLL_DefView", _
         vbNullString)
      Templong = FindWindowEx(Templong, 0&, _
         "Internet Explorer_Server", vbNullString)
      If Templong > 0 Then
          IE4ActiveDesktop = True
      Else
         IE4ActiveDesktop = False
      End If
   End Function

   Private Sub Form_Load()
      MsgBox "Active Desktop: " & IE4ActiveDesktop
   End
End Sub