Public Sub GrafikZeichnen()
Dim C As Control
Dim Anzahl As Integer
Dim I As Integer
 
For Each C In frmmain.Controls
If TypeOf C Is PictureBox Then
Anzahl = Anzahl + 1
End If
Next
 
For I = 1 To Anzahl - 1
Unlaod frmmain.pctSchicht(I)
Unload frmmain.rtfSchicht(I)
Next
 
' und hier Dein Code
    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
End Sub