Ejecutar el sonido predeterminado del sistema

Cómo ejecutar el sonido predeterminado del sistema.

*--------------------------------------------
FUNCTION _MessageBeep(tnSound)
*--------------------------------------------
* Ejecuta el sonido del sistema
* USO: _MessageBeep()
*--------------------------------------------
IF EMPTY(tnSound) OR TYPE("tnSound")    tnSound = 1
ENDIF
DECLARE INTEGER MessageBeep IN WIN32API ;
   INTEGER nSound
=MessageBeep(tnSound)
RETURN
ENDFUNC

Luis María Guayán