FoxPro/Visual FoxPro - mensaje de alarma con sonido

Tengo el siguiente código:
wfechain=STR(YEAR(DATE()),4)+PADL(ALLTRIM(STR(MONTH(DATE()),2)),2,'0')+PADL(ALLTRIM(STR(DAY(DATE()),2)),2,'0')
SELECT auxrec
SCAN FOR SUBSTR(auxrec.date,1,8)=wfechain *toma los datos del día actual
IF ch < 0.0
INSERT INTO tmpGrid (Estación, Fecha, Parámetro, CH) VALUES ("ARA", auxrec.date,auxrec.name,auxrec.ch)
Endif
ENDSCAN

Y necesito que para cada que se cumpla la condición, me arrogue una alarma visible para el usuario, un mensaje con un sonido que indique la estación, la fecha y el parámetro que esta cumpliendo con esta condición, pero no se como estructurarlo...gracias por su valiosísima ayuda.

bueno puedes crear un formulario llamado <frmmensajes> y luego pones algo como esto

SET BELL TO 'C:\Sonidos\message.wav' & Sonido o voz de mensaje
?? CHR(7) & Ejecuta el sonido
PUBLIC cMessage &Variable publica o local
cMessage="Clave no válida. Intente de nuevo o bien presione cancelar"
DO FORM frmmensajes & Abre el formulario que lleva mensaje

Hice lo que me recomendaste, puse el código en el evento int:
SET BELL TO 'C:\Archivos de programa\Windows NT\Pinball\SOUND4.wav'
?? CHR(7)
mensaje = 'Estacion con problemas'
condicion = 0 + 48
titulo = 'ALARMA'
messagebox(mensaje, condicion, titulo)

y no hay problema al ejecutar, solo que no necesito que cuando presione el botón de cancelar me saque del form y no que lo abra..

pero la situación es que necesito que cuando se cumpla mi condición solo valores negativos(estos son datos erróneo y deben de identificarse) debe de enviar el mensaje, pero no he logrado ejecutarlo, se que lo estoy haciendo mal mira este es el código:

wfechain=STR(YEAR(DATE()),4)+PADL(ALLTRIM(STR(MONTH(DATE()),2)),2,'0')+PADL(ALLTRIM(STR(DAY(DATE()),2)),2,'0')

SELECT auxrec
SCAN FOR SUBSTR(auxrec.date,1,8)= wfechain
IF ch < 0.0
INSERT INTO tmpGrid (Estación, Fecha, Parámetro, CH) VALUES ("ARA", auxrec.date,auxrec.name,auxrec.ch)
SET BELL TO 'C:\Archivos de programa\Windows NT\Pinball\SOUND4.wav'
?? CHR(7)
parametro = auxrec.name
fech = auxrec.date
mensaje = 'ARA' + parametro + fech && necesito concatenarlos
condicion = 0 + 48
titulo = 'ALARMA'
MESSAGEBOX(mensaje, condicion,titulo)
ENDIF
ENDSCAN

mil gracias y cordiales saludos

bueno yo no esperaba que lo pusieras en el Init o Load del form, bueno pero si lo necesitas asi, esta bien.

Para desactivar el sonido debes de poner: SET BELL TO

Ya sea en el DestroyEvent del form o bien en el boton (salida) 0 (Cancelar)