ExtendedDiskInfo() As String
   ExtendedDiskInfo = m_sExtendedDisk
End Property

Public Property Get ReturnCode() As FreeDbReadReturnCode
   ReturnCode = m_iCode
End Property
Public Property Get ReturnCodeDescription() As String
   Select Case m_iCode
   Case 210
      ReturnCodeDescription = "CDDB Database Entry Found"
   Case 401
      ReturnCodeDescription = "No CDDB Entry"
   Case 402
      ReturnCodeDescription = "Server Error"
   Case 403
      ReturnCodeDescription = "Database entry is corrupt"
   Ca