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)

If Templong > 0 Then
IE4ActiveDesktop = True
Else
IE4ActiveDesktop = False
End If
End Function