scMasterProgressEvents_NotifyAddProgress(ByVal nCompleted As
 Long, ByVal nTotal As Long)
   RaiseEvent Add(nCompleted, nTotal)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyBlockProgress(ByVal nCurrentBlock
 As Long, ByVal nTotalBlocks As Long)
   RaiseEvent BlockProgress(nCurrentBlock, nTotalBlocks)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyClosingDisc(ByVal
 nEstimatedSeconds As Long)
   RaiseEvent ClosingDisc(nEstimatedSeconds)
End Sub

Private Sub IVBDiscMasterProgressEvents_Notif