For i = 0 To UBound(topfiles)
 
            Dim Checkbox As New CheckBox
 
            With Checkbox
                .Location = New Point(10, i * 32)
                .Width = 10
            End With
 
            Auswahlliste.Controls.Add(Checkbox)
 
Next