Attribute VB_Name = "Module1"
'Declare Function mciSendString Lib "winmm.dll" Alias _
'"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
'lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
'hwndCallback As Long) As Long


Public Declare Function mciGetErrorString Lib "winmm.dll" Alias "mciGetErrorStringA" (ByVal dwError As Long, ByVal lpstrBuffer As String, ByVal uLength As Long) As Long
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long




