Hello Everyone,

Can anyone get this to work? If I can get past this code I'll be able to finish the rest (I think) myself.

Thanks in advance...

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