se
            Decompress = True
         End If
         
         m_bOperationInProgress = False
         RaiseEvent Complete
      End If
   End If

End Function

Public Function Compress() As Boolean

   If (m_bOperationInProgress) Then
      pErr 3, False
      Exit Function
   End If

   If (FileExists(m_sFileNameApe)) Then
      pErr 2, False
   Else
      If Not (FileExists(m_sFileNameWav)) Then
         pErr 1, False
      Else
      
         m_bOperationInProgress = True
         mMACAudio.MACAud