Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Hacer sonar un fichero Wav o Midi: Insertar el siguiente código en un módulo: Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Insertar un botón en el formulario y escribir el siguiente código: Private Sub Command1_Click() iResult = mciExecute("Play c:\windows\ringin.wav") End Sub