reproducir wav

[black_devil]

Hola, en un módulo declara:

Código:

Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

En el form en un botón, por ej:

Código:

Private Sub Command1_Click()
    iResult = mciExecute("Play c:\windows\ringin.wav")
End Sub