' Auswertung der Click-Ereignisse aller PictureBoxen
    Private Sub PiktureKlick(sender As Object, e As EventArgs)
        MsgBox("Klick erfolgte auf PictureBox" & CStr(CType(sender, _
          PictureBox).Name))
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        ' Mit AddHandler das Click-Event nachträglich zuweisen
        For Each c As Control In Me.Controls
            If TypeOf c Is PictureBox Then
                AddHandler c.Click, AddressOf PiktureKlick
            End If
        Next
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist