Private Sub Command1_Click()
Dim txt As VB.TextBox

    Set txt = Me.Controls.Add("VB.TextBox", "xxx")
    txt.Visible = True
    txt.Text = "runtime created control"
End Sub