2002-10-17 07:35

'From:  "Gregg Morrison" <greggmor@b...> Wed Oct 16, 2002  2:05 pm
' How to BEEP with Windows NT4

     CONST SndSimple = -1

     CONST SndOkayOnly = 0&
     CONST SndCritical_Error = 16&
     CONST SndQuestion = 32&
     CONST SndExclamation = 48&
     CONST SndInformation = 64&

     Public DECLARE SUB MessageBeep LIB "user32" (BYVAL Snd AS LONG)

2002-10-17 07:35