Dim A() As Control
Dim X As Integer
Dim Y As Integer

Private Sub CommandButton1_Click()

End Sub



Private Sub Userform_Initialize()

'Set A = UserForm1.Controls.Add("Forms.Textbox.1")
'A.Top = (UserForm1.Height() / 2)
'A.Left = UserForm1.Width() / 2
For i = 1 To 10
ComboX.AddItem i
Next i
For i = 1 To 10
ComboY.AddItem i
Next i
ComboY.ListIndex = 1
ComboX.ListIndex = 1

End Sub

Private Sub Size()
'MsgBox (ComboX.List(ComboX.ListIndex))
'Dim B As Control
X = (ComboX.List(ComboX.ListIndex))
Y = (ComboY.List(ComboY.ListIndex))

For i = 1 To X
'For j = 1 To Y
Set A(i) = UserForm1.Controls.Add("Forms.Textbox.1")
A(i).Top = 78 + (20 * i)
A(i).Left = 12
'Next j
Next i
End Sub

Private Sub ButtonSetSize_Click()
Call Size
End Sub

Private Sub SaveButton_Click()

End Sub

Private Sub UserForm_Click()

End Sub