>This is the code that I am using, and all the title captions are different. > >*!* DECLARE INTEGER CreateEvent IN WIN32API ; >*!* INTEGER lpEventAttributes, ; >*!* SHORT bManualReset, ; >*!* SHORT bInitialState, ; >*!* STRING @ lpName >*!* DECLARE INTEGER GetLastError IN Win32API >*!* DECLARE CloseHandle IN Win32API INTEGER hObject >*!* nEh = CreateEvent(0,0,1, PROGRAM(0) + '.EVENT') > >*!* IF GetLastError() = 183 OR nEh = 0 >*!* *-- This shows that office is currently running in the background. >*!* = MESSAGEBOX('This application is currently running!' + CHR(13) + "You can't open it more than once", 16, '') >*!* =CloseHandle(nEh) >*!* QUIT >*!* ENDIF >*!* ENDIF