ByVal nPercentageDone As Long)
   '
   Debug.Print "Progress...", nPercentageDone
   Dim bCancel As Boolean
   bCancel = False
   RaiseEvent Progress(nPercentageDone / 100000#, bCancel)
   If (bCancel) Then
      m_pKillFlag = 1
   End If
   '
End Sub

Public Property Get MACDLLVersionNumber() As Long
   MACDLLVersionNumber = GetVersionNumber()
End Property



Public Sub ShowInfoDialog(ByVal hwnd As Long)
   If Not (FileExists(m_sFileNameApe)) Then
      pErr 1, False
   Else
      Dim b() As Byte
      b =