c Function RecorderTypeName(ByVal eType As RECORDER_TYPES) As String
   If (eType = RECORDER_CDR) Then
      RecorderTypeName = "CDR"
   ElseIf (eType = RECORDER_CDRW) Then
      RecorderTypeName = "CDRW"
   Else
      RecorderTypeName = "Unknown Type"
   End If
End Function

Public Function RecorderStateName(ByVal eState As RECORDER_STATE) As String
   If (eState = RECORDER_OPENED) Then
      RecorderStateName = "Opened"
   ElseIf (eState = RECORDER_BURNING) Then
      RecorderStateName = "Burning"
   Else