Dim intCounter As Integer = 0
        Dim btn As Button
 
        For Each s As String In Liste
            btn = New Button
            With btn
                .Size = New Size(24, 20)
                .Location = New Point(24 * intCounter, 0)
                .Text = ""
 
                .Image = ...
 
            End With
 
            Panel1.Controls.Add(btn)
        Next