CLEAR PUBLIC oComUtil, oFoxEvent, oMSMQEvent * Setup up event handler to receive the messages oMSMQEvent = create("msmq.msmqevent") oComUtil = create("vfpcom.comutil") oFoxEvents = create("FoxEvent") ? EVENTHANDLER(oMSMQEvent,oFoxEvent) DEFINE CLASS FoxEvent AS custom OLEPUBLIC IMPLEMENTS FoxEvents IN "MSMQ.Msmqevent" Procedure FoxEvents_Arrived(oQueue,Cursor) WAIT WINDOW "Message Arrived" TIMEOUT 1 ENDPROC Procedure FoxEvents_ArrivedError(Queue,ErrorCode,Cursor) WAIT WINDOW "Message Arrived Error" TIMEOUT 1 ENDPROC ENDDEFINE