Dim WithEvents txtControl1 As TextBox
Dim lblcontrol1 As Label

Private Sub Form_Load()

   Set lblcontrol1 = Controls.Add("VB.Label", "lblControl1")
   lblcontrol1.Visible = True

   Set txtControl1 = Controls.Add("VB.TextBox", "txtControl1")
   txtControl1.Left = lblcontrol1.Left + lblcontrol1.Width + 400
   txtControl1.Visible = True

End Sub