I don't know if anyone else is using this control, but its kinda neat. It creates a popup message window kinda of like the msn messager popup. I need a nice way to display messages sent from one user to another, or at least when they have a new message. I've got a little sample code that runs in vfp7 and 8 that pops up the message. But I can't capture the event when the user clicks on it. At this point, I would open up the Read Message dialog box. Anybody know hows, I'd appreciate it, or if anyone is bored and wants to help, the link for downloading a demo version is below. Also, I've included the sample code I'm playing with. Of course the vendor only works with VB and couldn't help me. In the sample code, I've have a read events, but I've commented it out here.


http://www.innovasys.co.uk/products/popupalert.asp

oEvents = NEWOBJECT("myclass2")
oAlert  = NEWOBJECT("InnovaPopupAlertLib.PopupAlertCore")

EVENTHANDLER(oAlert, oEvents)

oAlert.ActionLinkText="MsgIDHere"
*oAlert.SoundName=SYS(5)+CURDIR()+[NewALert.wav]
oalert.BackgroundStyle= 1 

oAlert.show("New Message Received","hRef")


*READ EVENTS 

RETURN

DEFINE CLASS myclass2 AS session OLEPUBLIC

	IMPLEMENTS __PopupAlert IN "c:\winnt\system32\innovaalert.ocx"

	PROCEDURE __PopupAlert_Click(hRef AS STRING) AS VOID;
 				HELPSTRING "Occurs if the popup alert is clicked."

	* add user code here
			=MESSAGEBOX("Hello")
	ENDPROC

	PROCEDURE __PopupAlert_Timeout(hRef AS STRING) AS VOID;
 				HELPSTRING "Occurs if the popup alert closes normally after it's timeout has expired."
	* add user code here
		=MESSAGEBOX("Hello")
	ENDPROC

	PROCEDURE __PopupAlert_Show(hRef AS STRING) AS VOID;
 				HELPSTRING "Occurs after the popup alert is fully shown, and scrolling has finished"
	* add user code here

	ENDPROC

	PROCEDURE __PopupAlert_Hide(hRef AS STRING) AS VOID;
 				HELPSTRING "Occurs after the popup alert is closed, no matter what source was used to close the alert"
	* add user code here
	ENDPROC

	PROCEDURE __PopupAlert_ActionLinkClick(hRef AS STRING) AS VOID;
 				HELPSTRING "Occurs when the action link of a popup alert is clicked"
	* add user code here
				=MESSAGEBOX("Hello")
	ENDPROC

ENDDEFINE