'Erstellen der Pictureboxen z.B. im Form_Load
        Dim pb(500) As PictureBox
 
        For i As Integer = 0 To pb.Length - 1
            pb(i) = New PictureBox
            With pb(i)
                .Parent = Me
                .Size = New Size(50, 50)
                .Location = New Point(50 * i, 10)
                .BorderStyle = BorderStyle.FixedSingle
                .Tag = CStr(i)
                AddHandler .Click, AddressOf ClickIt
            End With
        Next i
 
 
 
        Private Sub ClickIt(sender As Object, e As EventArgs)
            MsgBox("Box Nummer " & CStr(CType(sender, PictureBox).Tag) & _
                 " ist geclickt worden")
        End Sub