Burning a DVD using NeroCOM

I have been trying to get a DVD using NEroCom indication, i have been using the drive.BurnFreestyleCD method in this way, but i am not able of get a DVD data.


Dim drives As INeroDrives
Set pContent = New NeroFileSystemDescContainer
pContent.BurnOptions = NERO_BURN_OPTION_USE_JOLIET
Dim FreeTrack As NeroFreestyleTrack
Dim FreeTracks As New NeroFreestyleTracks
Set FreeTrack = New NeroFreestyleTrack

FreeTrack.Title = "DataCD"
FreeTrack.Artist = "NewArtist"
FreeTrack.TrackType = NERO_FREESTYLE_TRACK_MODE1

FreeTracks.Add FreeTrack 'this line produce an error of automatization

Set drives = nero.GetDrives(NERO_MEDIA_CDR + NERO_MEDIA_DVD_ANY)

Set drive = drives(AvailableDevices.ListIndex)
Dim isotrack As NeroISOTrack
Set isotrack = New NeroISOTrack

If txtEtiqueta.Text = "" Then
    isotrack.Name = "CD_PELÍCULAS"
Else
    isotrack.Name = txtEtiqueta.Text
End If

isotrack.RootFolder = Folder
Dim file As NeroFile
Set file = New NeroFile
Folder.Files.Add file ' Si quisiéramos podríamos añadir al folder más archivos, incluso carpetas
file.Name = NameFromPath(edtFileName.Text)
file.SourceFilePath = edtFileName.Text



 isotrack.BurnOptions = NERO_BURN_OPTION_CREATE_ISO_FS + NERO_BURN_OPTION_USE_JOLIET
  drive.BurnFreestyleCD pContent, "", "", False, isotrack, FreeTracks, Nothing, NERO_BURN_FLAG_BOOKTYPE_DVDROM, 4, NERO_MEDIA_DVD_ANY

Could you oriented me or help me?

make it “OR” instead of “+”

'code
Set drives = nero.GetDrives(NERO_MEDIA_CDR OR NERO_MEDIA_DVD_ANY)