Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Dim SonidoSonido = mciExecute("Play c:\windows\ringin.wav")