Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
 Handles p602.Click, p603.Click , ...
        pintBildNr = CInt(DirectCast(sender, Button).Tag)
    End Sub

  Private Sub AddButtonHandler()
        AddHandler p602.Click, AddressOf Button_Click
        AddHandler p603.Click, AddressOf Button_Click
        ...
    End Sub
 
 
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        pintBildNr = CInt(DirectCast(sender, Button).Tag)
    End Sub

__________________________________________________________________________
Ein Programmierer ist eine Maschine die Koffein in Programmcode umwandelt!
Und Bier in Bug?s

May the source code be with you.