' Position der 1. CheckBox
    With chkStandorte(0)
        nLeft = .Left
        nTop = .Top
        nWidth = .Width
        nHeight = .Height
    End With
 
    ' weitere Checkboxen laden und anzeigen
    For f = 1 To i - 1
        ' Textfeld laden
        Load chkStandorte(f)
 
        With chkStandorte(f)
            ' Neue Checkbox positionieren
            ' (5 Stück unterhalb der vorigen Checkbox)
            If i Mod 5 = 0 Then
                nLeft = nLeft + nWidth + 105
                nTop = chkStandorte(0).Top
            Else
                nTop = nTop + nHeight + 105
            End If
 
            .Move nLeft, nTop
 
 
            ' Wichtig! Neues Textfeld sichtbar machen!
            .Visible = True
 
            ' Caption-Eigenschaft setzen
            .Caption = aiStandorte(f + 1)
        End With
    Next f
 
  End If