Private Sub Create_Shape(Count_sh As Integer)
For i = 0 To Count_sh
    Set sh(i) = Me.Controls.Add("VB.Shape", "sh" & i)
    sh(i).Height = Text1(i).Text
    sh(i).Width = Text2(i).Text
    sh(i).Top = 100
    sh(i).Left = 100
    sh(i).Visible = 1
    sh(i).Shape = 0
Next i
End Sub

Private Sub Create_Shape(Count_sh As Integer)
.....
    set sh(i).Container  = Frame1
.....
Next i
End Sub