pe = MEDIA_CDDA_CDROM) Then
      MediaTypeName = "CDDA CDROM"
   ElseIf (eType = MEDIA_SPECIAL) Then
      MediaTypeName = "Special"
   Else
      MediaTypeName = "Unknown"
   End If
End Function

Public Function MediaFlagNames(ByVal eFlags As MEDIA_FLAGS) As String
Dim sRet As String
   If (eFlags And MEDIA_BLANK) = MEDIA_BLANK Then
      sRet = AddToString(sRet, "Blank")
   End If
   If (eFlags And MEDIA_FORMAT_UNUSABLE_BY_IMAPI) =
    MEDIA_FORMAT_UNUSABLE_BY_IMAPI Then
      sRet = AddToString(sRet, "U