vbAccelerator - Contents of code file: mMAC.bas

Attribute VB_Name = "mMACAudio"
Option Explicit

Private m_c As cMACAudioSimple



Public Property Let MACAudio(c As cMACAudioSimple)
   Set m_c = c
   m_c.SetProgressCallbackPtr AddressOf ProgressCallback
End Property

Private Sub ProgressCallback(ByVal nPercentageDone As Long)
   '
   m_c.ProgressCallback nPercentageDone
   '
End Sub