BEEp en VB

[pr3ssiØn]

Hola, necesito hacer sonar el speaker de la pc, tengo entendido que en VB se hace con la funcion BEEP, pero tengo dos problemas la pc en la que necesito correr mi aplicacion no tiene placa de sonido, por lo tanto necesito que el beep salga por el speaker interno de la pc, y tambien me gustaria si hay alguna manera de extender el beep a 3 seg. en una plataforma win98, gracias!!

Saludos

[GeoAvila]

talvez esto te ayude

Código:

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim frequency As Long
Dim duration As Long
frequency = 800 'Hz
duration = 500 'ms (1/2 sec.)
Beep frequency, duration
End Sub