' the "DoBurn" method is actually a condensation of several scattered 
' methods -- I don't want to clutter the thread too much.
Private Sub DoBurn()  

    BurnOptions = NERO_BURN_OPTION_CREATE_ISO_FS _
                  + NERO_BURN_OPTION_USE_JOLIET _
                  + NERO_BURN_OPTION_USE_MODE_2       
                  ' I added mode 2 as part of my debugging. not sure 
                  ' what it adds, really.
    BurnFlags = NERO_BURN_FLAG_WRITE _ 
                + NERO_BURN_FLAG_DETECT_NON_EMPTY_CDRW _
                + NERO_BURN_FLAG_CD_TEXT            
                ' CD_TEXT was also added during debugging. I'm also 
                ' not sure what it does. 
    If Not Finalize Then
        BurnFlags = BurnFlags + NERO_BURN_FLAG_CLOSE_SESSION
    End If
    ' Finalize is a user option, but I am 100% certain it's not set 
    ' (and therefore I only close the session, not the whole disc) 
    ' during my first burn. 
    
    If Drive.Capabilities And NERO_CAP_BUF_UNDERRUN_PROT <> 0 Then
        BurnFlags = BurnFlags + NERO_BURN_FLAG_BUF_UNDERRUN_PROT
    End If
    
    loadCDInfo                                  
    ' defined below -- loads CD information
    
    If CDInfo.Tracks.Count > 0 Then
        importCD				
        ' defined below -- imports previous sessions
    End If
    
    Set BurnRootFolder = buildFileList          
    ' builds files from filesystem and imported session
    
    DoneBurn = False
    Set isoTrack = new NeroISOTrack
    isoTrack.Name = BurnTitle
    isoTrack.RootFolder = BurnRootFolder
    isoTrack.BurnOptions = BurnOptions
    
    Drive.BurnIsoAudioCD BurnTitle, SessionTitle, False, isoTrack, _
                         Nothing, Nothing, BurnFlags, _
                         0, CDInfo.MediaType
                         ' 0 selects fastest speed. Last argument 
                         ' selects to burn whatever happens
                         ' to be in the drive at the moment. 
                         ' For my tests, I've been using DVD-RW
    
    Do While Not DoneBurn
        DoEvents
    Loop

End Sub


Private Sub importCD()
    DoneImport = False
    If CDInfo.MediumFlags And NCDIMF_VIRTUALMULTISESSION <> 0 Then
        Dim vmi as NeroVMSInfo
        Dim VMS as NeroVMSSession
        Set vmi = drive.GetVMSInfo
        Drive.ImportIsoTrack vmi.Count - 1, NERO_IMPORT_VMS_SESSION
    Else
        Drive.ImportIsoTrack CDInfo.Tracks.Count - 1, _ 
                             NERO_IMPORT_ISO_ONLY
    End If
    Do While Not DoneImport
        DoEvents
    Loop
End Sub

Private Sub loadCDInfo()    
    DoneCDInfo = False
    Drive.CDInfo NERO_READ_ISRC
    Do While Not DoneCDInfo
        DoEvents
    Loop
End Sub

Private Sub Drive_OnDoneBurn(StatusCode As NEROLib.NERO_BURN_ERROR)
    DoneBurnStatus = StatusCode
    DoneBurn = True
End Sub

Private Sub Drive_OnDoneCDInfo(ByVal pCDInfo As NEROLib.INeroCDInfo)
    Set CDInfo = pCDInfo
    DoneCDInfo = True
End Sub

Private Sub Drive_OnDoneImport2(ByVal bOK As Boolean, ByVal pFolder As NEROLib.INeroFolder, _
                                ByVal pCDStamp As NEROLib.INeroCDStamp, _
                                ByVal pImportInfo As NEROLib.INeroImportDataTrackInfo, _
                                ByVal importResult As NEROLib.NERO_IMPORT_DATA_TRACK_RESULT)
    If bOK Then
        Set BurnRootFolder = pFolder
        Set ImportedCDStamp = pCDStamp
        BurnTitle = pImportInfo.VolumeName
    Else
        MsgBox "Error Importing"
    End If
    DoneImport = True
End Sub