Private Sub Command1_Click()
Dim MyLabel As Label
Dim MyText As TextBox
Set MyLabel = Controls.Add("VB.Label", "MyLabel")
MyLabel.Caption = "MyLabel"
MyLabel.Visible = True
Set MyText = Controls.Add("VB.TextBox", "MyText")
MyText.Text = "MyText"
MyText.Top = MyLabel.Height
MyText.Visible = True
End Sub