Hello,

Here's an quick and easy way to do the search
Code:
--This to a module--
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

--this to the form --
Private Const APP_NAME = "Calculator"

If FindWindow(vbNullString, APP_NAME) Then MsgBox ("Calculator is active")
so if you put that in to a timer and put that timer running and you open Calculator you will have terrible time clicking on the message boxes that will pop on to your screen.



------------------
-Matti Kiviranta
AyS of AyS Systems
Move yourrr body
"Eiffel65 - Move your body"