I need to create RectangleShapes at Runtime based on a number value placed in a textbox.text by a user.

Each RectangleShape has to have the same height and width, and be evenly spaced apart.

This is what I have so far:
Code:
Dim shpArray As New ArrayList(TextBox1.Text)
        Dim myShape As New Microsoft.VisualBasic.PowerPacks.RectangleShape
        shpArray.Add(myShape)
        For Each shp As
...