The Microsoft Multimedia Control lets you easily determine the total playing time of an Audio CD: you only need to correctly initialize the control and then decipher the value returned by its Length property. Use the following code as a guideline for your routines:
Private Sub cmdDisplayTime_Click()
Dim Value As Integer
Dim TotalTime As String
' Initialize the Multimedia control
.DeviceType = "CDAudio"
.TimeFormat = 10
.Command = "Open"
' seconds are held in the most significant byte
Value = (.Length \ 256) And 255
TotalTime = Right$("0" & CStr(Value), 2) & """"
' minutes are held in the least significant byte
Value = (.Length And 255) Mod 60
TotalTime = Right$("0" & CStr(Value), 2) & "' " & TotalTime
Value = (.Length And 255) \ 60
If Value > 0 Then
' display hour value only if necessary
TotalTime = CStr(Value) & "h " & TotalTime