Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button11.Click
        Dim c As Control
        Dim pb As PictureBox
        Dim s As String = "ADE;ADP;APP;ASX;BAS"
        For Each s1 As String In Split(s, ";")
            Try
                'hier soll der code rein der s1 in picturebox namen umwandelt
                'und ein image setzt wenn diese picturebox vorhanden ist
                'in der groupbox 8.
 
                s1.Image = ImageList1.Images(0)
 
 
 
            Catch
 
 
            End Try
 
        Next
    End Sub