Visual Basic 6 - Suono PC

Conoscete qualche codice per far emettere dei suoni al pc ?
Devo usarlo in un programma che funge da sveglia..
quindi il suono deve essere emesso proprio dall altoparlante del pc e nn dalle casse.
Grazie in anticipo

puoi utilizzare beep, ma nn è molto adatto
la cosa migliore è usare un' API

Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

private sub timer1_timer()
if Ora=Time then Beep FrequezaSuono, DurataInMillisecondi

il suono viene emesso dalle casse di sistema in mancanza degli altoparlanti

Grazie! è proprio ciò che cercavo

Scusate,ma a me se abbasso le casse del pc,in pratica le casse,non si sente,sarebbe come un normale suono...

Comunque ti consiglio di far scegliere all'utente un suono,è piu carino...