Public Class Form1
   Dim pbList As New List(Of PictureBox)
   Dim pbSource As PictureBox
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      For i As Integer = 0 To 9
         pbList(i) = New PictureBox
         pbList(i).Width = 32
         pbList(i).Height = 32
         pbList(i).AllowDrop = True
 
         Me.Controls.Add(pbList(i))
 
         AddHandler pbList(i).MouseDown, AddressOf Pic_MouseDown
         AddHandler pbList(i).MouseUp, AddressOf Pic_MouseUp
      Next
   End Sub
 
   Public Sub DisplayPictureBoxName()
      For Each ctrl In Me.Controls
         If TypeOf ctrl Is PictureBox Then
            Debug.WriteLine(CType(ctrl, PictureBox).Name)
         End If
      Next
   End Sub
 
   Public Sub DisplayPictureBoxName2()
      For Each ctrl In pbList
         Debug.WriteLine(ctrl.Name)
      Next
   End Sub
 
End Class