<span class="i">doesn't</span> support audio and data):
</p><pre>
Dim iProperty As Long

       Debug.Print "Properties:"
       With .Properties
          For iProperty = 1 To .Count
              With .Property(iProperty)
                 Debug.Print "  " &amp; .Name &amp; " = " &amp; .Value
              End With
          Next iProperty
       End With

       Debug.Print "Recording Formats:"
       If (.SupportsRedbook) Then
           Debug.Print "  Redbook (audio)"
       End If
       If (.SupportsJ