>>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 >>