inserting dynamic controls in a form , one overlapping the other

[titli]

I have code to create an access form , and the controls will be added dynamically , taking information about type of form control, answers , questions, answer type control , number of answer type control.

How to put the Question label ,Answer values and answer controls in the form by calculating the x-axis and y-axis values ?

I am adding certain number for every loop counter , to increment teh x- axis and y-axis variable value for inserting teh control but they seem to overlap each other ?

How do i calculate?Is there an easier way to doing this ?

[ADezii]

The following Code should help you. It will create 10 Text Boxes, along with their associated Labels, and align them Vertically with space in between:

DoCmd.OpenForm "frmCreateControls", acDesign, , , , acWindowNormal
 
Dim ctlText As Control
Dim ctlLabel As Control
Dim intDataX As Integer
Dim intDataY As Integer
Dim intLabelX As Integer
Dim intLabelY As Integer
Dim intCtlCtr As Integer
Dim intHeight As Integer
Dim intWidth As Integer
 
intLabelX = 1000
intLabelY = 300
intDataX = 3000
intDataY = 300
intHeight = 400
intWidth = 1900
 
For intCtlCtr = 1 To 10
  'Create unbound default-size text box in detail section.
  Set ctlText = CreateControl("frmCreateControls", acTextBox, , "", "", _
                               intDataX, (intDataY * intCtlCtr) + (intCtlCtr * intHeight), , intHeight)
 
  'Create child label control for text box.
  Set ctlLabel = CreateControl("frmCreateControls", acLabel, , ctlText.Name, "", _
                                intLabelX, (intLabelY * intCtlCtr) + (intCtlCtr * intHeight), intWidth, intHeight)
      ctlLabel.BorderStyle = 1      'Solid
Next
 
DoCmd.Close acForm, "frmCreateControls", acSaveYes