Private Sub Form_Load()
    Dim i As Integer
    Dim Button As CommandButton
    Dim Text As TextBox
 
    For i = 1 To 5
        Set Button = Form1.Controls.Add("VB.CommandButton", "cmdButton" & i)
        Button.Top = i * 500
        Button.Visible = True
        Button.Caption = "Button" & i
 
        Set Text = Form1.Controls.Add("VB.TextBox", "txtBox" & i)
        Text.Top = i * 500
        Text.Left = 1500
        Text.Visible = True
        Text.Text = "Text " & i        
    Next
End Sub