' Den erzeugten Button verwenden:
                        With btnArray(i)
 
                            ' Parent festlegen und Controls-Collection erweitern
                            .Parent = Me
                            .Parent.Controls.Add(btnArray(i))
                            ' Verwaltungsinformationen zuweisen
                            .Name = "Button" & CStr(i)
                            .TabIndex = i
 
 
                            ' Darstellung: Beschriften und positionieren
                            .Size = New Drawing.Size((Me.Size.Width - 20), 53)
                            .Location = New Drawing.Point(0, 58 * (einträge - _
                              1) + 2 * (einträge - 1))
                            .Visible = True
 
                            ' Auf das Click-Ereignis reagieren können:
                            AddHandler .Click, AddressOf btnArray_Click
                        End With

 
    Private Sub btnArray_Click(ByVal sender As Object, _
                         ByVal e As System.EventArgs)
        ' Click-Ereignis des Button-Arrays auswerten
        Dim itemClicked As Button = CType(sender, Button)
        Dim index As Integer = -1I
        ' Das betroffene Element im Array suchen (allgemein);
        ' Möglich wäre etwa auch das Vorgehen über die eigens
        ' zugewiesene Name-Eigenschaft des Buttons.
        For i As Integer = LBound(btnArray) To UBound(btnArray)
            If btnArray(i) Is itemClicked Then
                index = i
                Exit For
            End If
        Next
        If index > 0 Then ' Element im Array gefunden (sonst index = -1)
            Try
                Process.Start(My.Application.Info.DirectoryPath & "\Programme" _
                  & startfiles(index))
            Catch ex As Exception
            End Try
        End If
    End Sub

Jan Bender
www.jan-bender.de