sndBeep

Public Declare Function MessageBeep Lib "user32" _
(ByVal wType As Long) As Long
'oppure


Declare Function Beep Lib "kernel32" _
Alias "Beep" As Long ByVal dwFreq As Long _
ByVal dwDuration As Long

'Specificare la frequenza in hertz del suono

'Questo parametro va regolato in un range 37 32,767 (0x25 - 0x7FFF).


Public Sub BeepSpeaker()
'wType should be 0xFFFFFFFF for a speaker beep

'and since -1& = 0xFFFFFFFF (signed longs),use -1&

MessageBeep -1&
'oppure utilizzare la funzione beep specificando

'frequenza e durata del segnale

'bep -1

End Sub