' Der Tag-Eigenschaft schon vorhandener PictureBoxen die Zählnummer
        ' und dem AddHandler das Click-Event nachträglich zuweisen
        For i = 1 To 361
            Me.Controls("PictureBox" & i).Tag = i
            AddHandler Me.Controls("PictureBox" & i).Click, AddressOf _
              PiktureKlick
        Next

    ' Auswertung der Click-Ereignisse aller PictureBoxen
    Private Sub PiktureKlick(sender As Object, e As EventArgs)
        MsgBox("Klick erfolgte auf PictureBox" & CStr(CType(sender, _
          PictureBox).Tag))
    End Sub