Gostaria de saber se alguem já efetuou a criação dinamica de form, estou com um problema. Preciso criar uma frame e dentro destra frame criar um conjunto de option ou check box, e esses com um indice mas até o momento não consegui. Para criar o forme estou utilizando o seguinte:

Dim objTextBox    As TextBox
Set objTextBox = Me.Controls.Add("VB.TextBox", rsAux!Nome_Objeto)
 With objTextBox
                     .Font = "Tahoma"
                     .Text = ""
                     .TabIndex = rsAux!Sequencia
end with.

como faço para incluir ele dentro de uma frame ?

para criar controles dentro de um container faça assim por exemplo:

 

Private Sub Command1_Click()
Set objctl = Me.Controls.Add("VB.Frame", "nome")
objctl.Visible = True
objctl.Width = 3000
objctl.Height = 2000

 

Set objctl1 = Me.Controls.Add("VB.optionbutton", "texto", objctl)
objctl1.Visible = True
objctl1.Top = 100

Set objctl2 = Me.Controls.Add("VB.optionbutton", "texto1", objctl)
objctl2.Visible = True
objctl2.Top = 500

End Sub

----------------------------------------------------------------

Agora neste modo eu desconheço criar controles com array... para isso eu utilizo outro modo:

 

Em tempo de projeto 1º crie um frame e dentro deste frame coloque um controle por exemplo uma textbox com as propriedades desta textbox "index = 0" e "visible=false". Coloquei o nome desta textbox como "text1"

depois siga este exemplo:

 

Private Sub Command2_Click()
Load Text1(1)
Text1(1).Visible = True
Text1(1).Top = 100
Load Text1(2)
Text1(2).Visible = True
Text1(2).Top = 600
Text1(2).Left = 600
End Sub

 

Deste modo vc criou 2 textboxes em tempo de execução. Uma com índice 1 e outra com índice 2.

 

qq coisa é só postar...

 

t+