codice:
Private Sub Command1_Click()

  Dim txtNew As TextBox

  ' creo un controllo sulla Form
  Set txtNew = Controls.Add("VB.TextBox", "txtNew")

  ' per creare il controllo su un Frame
  ' Set txtNew = Controls.Add("VB.TextBox", "txtNew", Frame1)
End Sub