Private Declare Function FindWindow& Lib "user32" Alias "FindWindowA" (ByVal lpClassName$, ByVal lpWindowName$)

 

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

 

Public 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)

 

   IE4ActiveDesktop = IIf(Templong > 0, True, False)

 

End Function

 

Private Sub Form_Load()

 

   Me.Caption = IE4ActiveDesktop

 

End Sub