[VB.NET] Ciclo For blocca il programma

[Popo95]

Salve a tutti!
Sto realizzando un semplice software che si occupa di masterizzare file e cartelle su cd/dvd. Ho problemi con il processo che si occupa di calcolare la dimensione di dati da masterizzare, ovvero:

Public Sub CalculateDataSize()
'
' Calculate the size of the files
'

Dim totalMediaSize As Long = 0
Dim mediaItem As iMediaItem


For Each mediaItem In listBoxFiles.Items
totalMediaSize += mediaItem.SizeOnDisc
Next


'Dim Dimension As Integer = CInt((totalMediaSize * 100) / _totalDiscSize)
Dim Dimension As Integer = CInt(_totalDiscSize - totalMediaSize)

Select Case Dimension
Case Is <= 600
lbl_necessary_disk.Text = "1 CD"
Case Is <= 1200 And Dimension > 600
lbl_necessary_disk.Text = "2 CD o 1 DVD"
Case Is <= 2048 And Dimension > 1200
lbl_necessary_disk.Text = "4 CD o 1 DVD"
Case Is <= 4096 And Dimension > 2048
lbl_necessary_disk.Text = "1 DVD"
End Select

If Dimension < 0 Then
MsgBox("Spazio insuffieciente")
End If

End Sub

Il problema si presenta con il ciclo "For Each mediaItem In listBoxFiles.Items". Qualsiasi cosa vene messa dopo questo ciclo, non funziona. Ho provato a mettere delle semplici MsgBox("Testo a caso") prima, dentro e dopo il ciclo. Le prime due funzionano, mentre l'ultima non viene proprio visualizzata. Anche la variabile che viene incrementata ad ogni iterazione, totalMediaSize, viene visualizzata correttamente finchè è prima o dentro il ciclo, invece dopo di esso è impossibile visualizzarla e utilizzarla.


Qualche idea su come risolvere?
Grazie in anticipo!:)

[Ballantine]

Ciao, hai provato a vedere se viene sollevata qualche eccezione?


...
Try
For Each mediaItem In listBoxFiles.Items
totalMediaSize += mediaItem.SizeOnDisc
Next
Catch ex As Exception
MsgBox(ex.ToString())
End Try
...

[Popo95]

Ok, grazie Ballantine ho provato ed effettivamente viene fuori un'eccezione. A quanto pare il ciclo si ripete in continuazione anche se non c'è più alcun "mediaItem" in "listboxfiles.Items", quindi nel momento in cui viene generata l'eccezione mi sono accordo che a "mediaItem"viene assegnato "Nothing".
Ho risolto imponendo al ciclo di uscire al verificarsi del problema, in questo modo:
For Each mediaItem In listBoxFiles.Items
If mediaItem Is Nothing Then
Exit For
End If
totalMediaSize += mediaItem.SizeOnDisc
Next

Grazie mille dell'aiuto!:)