Como puedo emitir un sonido ?

[Tano Mendoza]

En QB había una sentencia SOUND(frecuencia, duración) que emitía un sonido de acuerdo a las características indicadas (por el parlante de la PC)
Existe algo similar en VB ? (que salga por la tarjeta de sonido o por el parlante de la PC, no importa cual).
Desde ya gracias.

[YIGABAIT]

Puedes usar la función Beep() y emitirás un sonido por el parlante. Pero no puedes establecer ni la duración ni la frecuencia, pues Beep() emite un sonido .wav de windows que está determinado por las preferencias de Sonidos del Sistema-

[[EX3]]

La funcion Beep() del API de Windows, no la de Visual Basic, si permite indicar frecuencia y duracion como el Sound() de QBasic:

Código:

Option Explicit

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

Private Sub Form_Load()
    Call CPUBeep(5000, 1000)
    
End Sub

Salu2...