yEraseComplete(ByVal status As
 Long)
   RaiseEvent EraseComplete(status)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyBurnComplete(ByVal status As Long)
   RaiseEvent BurnComplete(status)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyPnPActivity()
   RaiseEvent PnPActivity
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyPreparingBurn(ByVal
 nEstimatedSeconds As Long)
   RaiseEvent PreparingBurn(nEstimatedSeconds)
End Sub

Private Sub IVBDiscMasterProgressEvents_NotifyTrackProgress