Private Declare Function mciSendString Lib "winmm.dll" _
  Alias "mciSendStringA" ( _
  ByVal lpstrCommand As String, _
  ByVal lpstrReturnString As String, _
  ByVal uReturnLength As Integer, _
  ByVal hwndCallback As Integer) As Integer
  Private Structur TrackInfo
    nPosition As Integer
    nLength As Integer
  End Type