Código vb:
Ver original
Declare Function mciExecute Lib "winmm.dll" (ByVal ByVallpstrCommand As String) As Long Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal ByValhwndCallback As Integer) As Integer
Ojo: La linea de Private Declare Function va en una sola..
Muchas gracias