Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal a As String, ByVal b As Integer, ByVal c As Integer, ByVal d As Integer) As Integer