Public Class Form1
    Dim Pb(99) As PictureBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.ClientSize = New Size(320, 320)
        Dim x, y As Int32
        For i As Int32 = 0 To 99
            Pb(i) = New PictureBox With {.Width = 32, .Height = 32, .Name = _
              "Pb" & i.ToString, .Parent = Me}
            Pb(i).Image = SystemIcons.Warning.ToBitmap
            y = i \ 10
            x = i - y * 10
            Pb(i).Location = New Point(x * 32, y * 32)
            AddHandler (Pb(i).MouseDown), AddressOf Pb_Mouse_Down
        Next
    End Sub
 
    Private Sub Pb_Mouse_Down(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        Dim Pb As PictureBox = CType(sender, PictureBox)
        MsgBox(Pb.Name)
    End Sub
End Class