Private Sub CD_Init(Optional ByVal bClose As Boolean = True)
        Dim nResult As Integer
        Dim I As Integer
        Dim ID As String
        Dim ReturnString As Integer
        ' zunächst alles stoppen
        bCDPlay = False
        SendCommand("stop cdaudio")
        SendCommand("close cdaudio")
 
        ' CD-Audio öffnen und Zeitformat festlegen
        SendCommand("open cdaudio")
        SendCommand("set cdaudio time format milliseconds")
 
        SendCommand("info cdaudio identity")
        mciSendString("info cdaudio identity", ReturnString, 255, 0)
        '-----------------------------------------------------------------------
        Label1.Text = "CD-ID =  " & ReturnString
        '-----------------------------------------------------------------------
 
        ' Gesamtzeit ermitteln
        lTotalLength = SendCommand("status cdaudio length")
 
        ' Anzahl Tracks, sowie einzelne Track-Länge
        ' ermitteln (wir gehen mal von max. 100 Tracks aus)
        iTracks = 0
        cmbTracks.Items.Clear()
        cmbTracks.Items.Add(" ")
        cmbTracks.Items.IndexOf(0)
 
        For I = 1 To 30
            nResult = SendCommand("status cdaudio position track " & _
              CStr(I))
 
            ' kein Track mehr verfügbar?
            If nResult = 0 Then Exit For
 
            ' Track-Info ermitteln
            iTracks = iTracks + 1
            ReDim Preserve UDT_Track(iTracks)
            With UDT_Track(I)
                .nPosition = nResult
                .nLength = SendCommand("status cdaudio length track " & _
                  CStr(I))
 
                cmbTracks.Items.Add("[" & Format$(I, "00") & "] " & _
                  CD_FormatTime(.nLength))
            End With
        Next I
 
        ' CD-Audio schließen
        If bClose Then SendCommand("close cdaudio")
 
        ' Display aktualisieren
        Display_Show(eShowMode.iShowTotal)
    End Sub