Private 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
 
 
Private Function SendCommand(ByVal sCommand As String) As Long
  Dim nResult As Long
  Dim sReturn As String * 256
  nResult = mciSendString(sCommand, sReturn, Len(sReturn), 0&)
  SendCommand = Val(sReturn)
End Function

SendCommand "Open " & CDDrive$ & " Type cdaudio Alias cd"
  SendCommand "set cd door open" (bzw SendCommand "set cd door closed"
  SendCommand "close cd"

SendCommand "Open " & CDDrive$ & " Type cdaudio Alias cd"
  SendCommand "play cdaudio"

Dim lTotalLength As Long
Dim lPosition    As Long
Dim lLength      As Long
Dim lResult      As Long
dim i            as Integer
 
' i = Track-Nr
 
  SendCommand "Open " & CDDrive$ & " Type cdaudio Alias cd"
  SendCommand "set cdaudio time format milliseconds"
  lTotalLength = SendCommand("status cdaudio length")
  lResult = SendCommand("status cdaudio position track " & CStr(i))
  lLength = SendCommand("status cdaudio length track " & CStr(i))

SendCommand "Open " & CDDrive$ & " Type cdaudio Alias cd"

SendCommand "open cdaudio"

...enden die Fragen nie?