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