[RESOLVED] Odd index out of range exception

For i As Integer = 0 To pbGrid.Controls.Count - 1
            pbGrid.Controls.RemoveAt(i)
        Next

Private Sub addGrid()
        Dim wid As Integer = 10
        Dim hig As Integer = 10
 
        For x As Integer = 0 To 31
            For y As Integer = 0 To 31
                Dim pb As New PictureBox
                With pb
                    .BackColor = transparentColor
                    .BorderStyle = BorderStyle.FixedSingle
                    .Location = New Point(x * wid, y * hig)
                    .Size = New Size(wid, hig)
                End With
                pbGrid.Controls.Add(pb)
 
                grid(x, y) = pb
            Next
        Next
    End Sub