>>164
サンプル

Private Sub UserForm_Click()
　　Dim Ctrl As Control
　　For i = 1 To 5
　　　　Set Ctrl = UserForm1.Controls.Add("Forms.TextBox.1", "テキストボックス_" & i)
　　　　Ctrl.Top = i * 20
　　　　Ctrl.Left = 20 + i * 8
　　　　Ctrl.Width = 100
　　　　Ctrl.Height = 18
　　　　Ctrl.Value = "テスト " & i
　　Next
End Sub