Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
'PictureBox dynamisch erzeugen
For i = 1 To 3
                Dim pb As New PictureBox
                With pb
                    .Name = "pb" & i
                    .Height = 100
                    .Width = 100
                    .Top = 10
                    .Left = 10 + 100 * i
                    .Image = New Bitmap(Application.StartupPath & "\Bilder\" & _
                      i & ".jpg")
                    .SizeMode = PictureBoxSizeMode.StretchImage
                End With
                AddHandler pb.Click, AddressOf DynamicClick
                Me.TabPage1.Controls.Add(pb)
Next
End Sub
 
Private Sub DynamicClick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
        'Name der geclickten PictureBox ausgeben
        MsgBox(???????)
End Sub