im lR As Long
      b = StrConv(m_sFileNameApe, vbFromUnicode)
      ReDim Preserve b(0 To UBound(b) + 1) As Byte
      
      lR = VerifyFile(VarPtr(b(0)), m_pPercentDone, m_lPtrProgress, m_pKillFlag)
      If Not (lR = 0) Then
         If Not (lR = ERROR_USER_STOPPED_PROCESSING) Then
            pErr lR, True
         End If
      Else
         Verify = True
      End If
            
      m_bOperationInProgress = False
      RaiseEvent Complete
   End If
   
End Function

Public Function Decompress() As 