Inserta en un formulario un control MMControl, llámale MM, un control
ListBox y un control CommandButton. Haz doble clic sobre éste último e
inserta el código siguiente:

Private Sub Command1_Click()
    MM.Command = "Open" ' Abrimos el dispositivo
        ' establecemos formato de tiempo
    MM.TimeFormat = mciFormatMilliseconds
    List1.Clear ' limpiamos la lista
    Dim PistaActual As Integer
        ' Bucle para recorrer las pistas
    For PistaActual = 1 To MM.Tracks
        MM.Track = PistaActual
        Dim Segundos As Integer
            ' obtenemos duración de una pista en segundos
        Segundos = MM.TrackLength / 1000
            ' la mostramos en la lista en formato m's"
        List1.AddItem "Pista " & PistaActual & " ---> " & _
            Int(Segundos / 60) & "'" & Segundos - (Int(Segundos / 60) * 60)
& """"
    Next
    MM.Command = "Close" ' cerramos el dispositivo
End Sub

Yo lo he probado y me funciona correctamente, devolviendo la duración de las
pistas con una diferencia máxima de 2" respecto a lo que se indica en el
propio CD.

Saludos.

_____________________________
Francisco Charte Ojeda
charte@swin.net
Torre de Babel -> http://www.swin.net/charte