<code>With MMControl1
  .Wait = True
  .UpdateInterval = 0
  .DeviceType = "CDAudio"
  .Command = "Open"
  .TimeFormat = mciFormatMilliseconds
 
  <font color=green>'Anzahl der Tracks</font>
  Tracks = C.Tracks
 
  <font color=green>'Gesamtspielzeit in Millisekunden</font>
  GesTime = C.Length
End With</code>

<code>Dim TrackTime(Tracks) As Long
 
With MMControl1
  For I = 1 To Tracks
    .Track = I
 
    <font color=green>'Spieldauer Track I in Millisekunden</font>
    TrackTime(I) = .TrackLength
  Next I
End With</code>

<code>Public Function FormatMillisekunden(ByVal MSek AS Long) As String
  Dim Sek As Integer
  Dim Min As Integer
 
  If MSek > 0 Then
    Sek = MSek  1000
    Min = Sek  60
    Sek = Sek - (60 * Min)
    FormatMillisekunden = Format$(Min, "#0:") + Format$(Sek, "00")
  Else
    FormatMillisekunden = "00:00"
  End If
End Function</code>