Как создать контрол в существующей форме в Access

Private Sub Form_Click()
DoCmd.OpenForm "testForm", acDesign
Dim ctlText As Control
Dim intLabelX As Integer, intLabelY As Integer
' Set positioning values for new controls.
intLabelX = 100
intLabelY = 100
' Create unbound default-size text box in detail section.
Set ctlText = CreateControl("testForm", acTextBox, , "", "", intLabelX, intLabelY)
End Sub