Caricare e Scaricare oggetti Dinamicamente

[Paperina(l4p)]

ciao a tutti ragazzi....mi succede una cosa assurda....forse qualcuno di voi hai una idea???

Allora questo è il mio problema:

Ho sul form un oggetto che si chiama Form1.Giudizio_1Q_Alunno con index 500. Ho due funzioni nel mio programma, una che carica dinamicamente N di questi controlli ed una funzione che li scarica.

Con questo codice inserito in un ciclo carico N di questi controlli:

Load Form1.Giudizio_1Q_Alunno(I)
Form1.Giudizio_1Q_Alunno(I).Caption = RS_Servizio("cognome") & " " & RS_Servizio("nome")
Form1.Giudizio_1Q_Alunno(I).Top = TOP_Testo
Form1.Giudizio_1Q_Alunno(I).Visible = True
TOP_Testo = TOP_Testo + 360
TOP_Casella = TOP_Casella + 365

Con questa funzione invece scarico i controlli e mi da un errore STRANISSIMO:

If Form1.Giudizio_1Q_Alunno.Count = 2 Then
Unload Form1.Giudizio_1Q_Alunno(1)
End If

If Form1.Giudizio_1Q_Alunno.Count > 2 Then
MsgBox Form1.Giudizio_1Q_Alunno.Count
Form1.Giudizio_1Q_Alunno(I).Visible = False
    For I = 1 To (Form1.Giudizio_1Q_Alunno.Count - 2)
        Unload Form1.Giudizio_1Q_Alunno(I)
        DoEvents
    Next I
End If

Unload Form1.Giudizio_1Q_Alunno(1) Su Questa riga mi da errore e dice "Errore 365." "Impossibile scaricare in questo contesto"

MA CHE CAVOLO VUOL DIRE???? Qualcuno mi sa aiutare?? Grazie!