For Each ctrl As Control In Me.Controls
    If TypeOf ctrl Is PictureBox AndAlso _
       ctrl.Name.Contains("PictureBoxSerie") Then
 
            AddHandler ctrl.Click, AddressOf ClickIt 'Name Eventhandler-Routine
 
    End If
Next ctrl

        Dim pictureBoxen As New List(Of PictureBox)
 
        'Boxen in eine Liste eintragen
        For Each ctrl As Control In Me.Controls
            If TypeOf ctrl Is PictureBox AndAlso _
                 ctrl.Name.Contains("PictureBoxSerie") Then
                pictureBoxen.Add(CType(ctrl, PictureBox))
            End If
        Next ctrl
 
        'Jetzt den Eventhandler anfügen
        For Each pbox As PictureBox In pictureBoxen
            AddHandler pbox.Click, AddressOf ClickIt
        Next pbox