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