CDInfo dosn't work? Im to stupid ;-)

I have make a Class for burning is running but when i call the CDInfo do it nothing? When i call from a CommandButton it’s work fine. Why can i call the CDInfo event from out of a Sub or a Class? I write a Backup app and before burn the backup i need the cdinfo for cecking the CDMediaTyp, IsCDWriteable and erasemode. Sorry for my stupid questions im a noob and my english is not s good (it’s terrible) ;-).

###############################

from the Form Load oder Command

###############################

Set cNeroBurn = New clsNeroBurn

'when i call from here the CDInfo it’s dosn’t fire
'cNeroBurn.GetCDInfo

cNeroBurn.NeroLoadDevices cboNeroDevices, 129

cNeroBurn.NeroBurn “Test”, “200312281548”, 0, 129

'When i call from a Command Button only the CDInfo it’s work

Private Sub Command2_Click()
Set cNeroBurn = New clsNeroBurn
cNeroBurn.GetCDInfo
End Sub

Why? I will call from the NeroLoadDevices Sub when i load the Nero devices. Or from the NeroBurn Sub. What must i do?

#########################################

My Class clsNeroBurn

#########################################
Option Explicit

Public WithEvents nNero As Nero

Public nDrives As NEROLib.NeroDrives
Public WithEvents nDrive As NEROLib.NeroDrive

Public nFolder As NEROLib.NeroFolder
'Public NeroFiles As colNeroFiles

Private EreaseOK As Boolean
Private sBurnMessage As String

Private Sub Class_Initialize()
Set nNero = New NEROLib.Nero
End Sub

Private Sub Class_Terminate()
Set nNero = Nothing
End Sub

Public Sub NeroBurn(sBackupName As String, sBackupFolder As String, iDrive As Integer, nMediaType As NEROLib.NERO_MEDIA_TYPE)

sBurnMessage = vbNullString

Dim nDrives As NEROLib.NeroDrives
Dim nISOTrack As New NEROLib.NeroISOTrack

Set nDrives = nNero.GetDrives(nMediaType)
Set nDrive = nDrives(iDrive)

'Or from here :wink:

'Call getCDInfo

Dim fsoNeroFiles As New FileSystemObject

If Dir(“D:\Burn Backup Pro\Backup\200312270241”, vbDirectory) = “” Then Exit Sub

Set nFolder = New NEROLib.NeroFolder
BuildFileFolderTree nFolder, fsoNeroFiles.GetFolder(“D:\Burn Backup Pro\Backup\200312270241”)
nISOTrack.Name = sBackupFolder
nISOTrack.BurnOptions = NERO_BURN_OPTION_CREATE_ISO_FS + NERO_BURN_OPTION_USE_JOLIET
nISOTrack.RootFolder = nFolder

nDrive.BurnIsoAudioCD “”, “”, False, nISOTrack, Nothing, Nothing, NEROLib.NERO_BURN_FLAG_WRITE + NEROLib.NERO_BURN_FLAG_BUF_UNDERRUN_PROT, 0, nMediaType

Exit Sub

handle_error:

cLog.NewLog " [" & Err.Number & "] " & Err.Description

End Sub

Public Sub GetCDInfo()

Dim nDrives As NEROLib.NeroDrives
Set nDrives = nNero.GetDrives(NEROLib.NERO_MEDIA_CDRW)
'Set nDrives = nNero.GetDrives(nMediaType)
Set nDrive = nDrives(0) 'my default cd-rom
nDrive.CDInfo (NERO_READ_ISRC)

End Sub

Public Sub NeroLoadDevices(cboNeroDevices As ComboBox, nMediaType As NEROLib.NERO_MEDIA_TYPE)
Dim i As Integer

Dim nDrives As NEROLib.NeroDrives
Set nDrives = nNero.GetDrives(nMediaType)

For i = 0 To nDrives.Count - 1

cboNeroDevices.AddItem nDrives(i).DeviceName, i

Next i

cboNeroDevices.ListIndex = 0

Set nDrive = nDrives(cboNeroDevices.ListIndex)

'From here
'Call GetCDInfo

i = 0
End Sub