Dim pb(16, 16) As PictureBox
 
        For n = 1 To Y
            For i = 1 To X
 
                pb(i, n) = New PictureBox
 
                With pb(i, n)
 
                    .BackColor = Color.White
                    .Location = New Point(21 * i, 21 * n)
                    .Size = New Size(20, 20)
 
                End With
 
                'AddHandler pb(i, n).Click, AddressOf pb_click
 
                Me.Controls.Add(pb(i, n))
 
            Next i
        Next n