Public Sub GrafikZeichnen()
   '... Deklarationen und Initialisierung usw.
 
   '...hier das Problemchen:
   '...es werden in Abhängigkeit der Anzahl Members in einer Auflistung 
   ' PictureBoxen 
   '...und RichtTexte dazugeladen 
    For I = pctSchicht.UBound + 1 To tmpOberbau.AnzahlSchichten
        Load pctSchicht(I)
        With pctSchicht(I)
            .Left = tmpOberbau.GrafikX
            '..... 
        End With
 
        Load rtfSchicht(I)
        With rtfSchicht(I)
            .Left = MySubLeftDicke
            '......
        End With
    Next
    '.... bis hier ist ja alles schön
 
    '...und wenn nun aus einem vorherigen Aufruf bereits mehr PictureBoxen 
    ' vorhanden
    '...sind als es Member in der Auflistung gibt, will ich sie entladen, und 
    ' das funktioniert 
    '...eben nicht
 
    For I = pctSchicht.UBound To tmpOberbau.AnzahlSchichten + 1 Step -1
        Unload frmmain.pctSchicht(I)
    Next
 
   '.....
 
End Sub