Create RectangleShapes at Runtime

[Jseph2]

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:

Dim shpArray As New ArrayList(TextBox1.Text)
        Dim myShape As New Microsoft.VisualBasic.PowerPacks.RectangleShape
        shpArray.Add(myShape)
        For Each shp As Microsoft.VisualBasic.PowerPacks.RectangleShape In shpArray
 
 
        Next

The shpArray in "Dim shpArray As New ArrayList(TextBox1.Text)"
shows an "overload resolution failed because no accessible 'New can be called without a narrowing conversion:" error.