Activar el Sstab a crear Objetos por controls.add

fcordoba
31 de Enero del 2006
Estoy Creado una encuesta dinamica, existen una tabla de Grupos de preguntas, cada grupo puede tener Varias preguntas y las preguntas tiene Tantas Respuestas como se configuren en un configurador.
Con estos datos en un Forms que tiene unicamente un Sstab, Creo Tantos Sstab.tabs como Grupos existan, Luego cambio titulos a Cada Sstab.tab. Cada Grupo se encuentra dentro un Frame este frame debe se colocado en Sstab.tab especifico. Y Es aqui no no he podido activar el sstab.tab para colocar el frame y los objetos que estan dentro de este Frame.

En Resumen como Activo un Sstab.tab para poder crear objeto utilizando el controls.add
Adjunto codigo utilizado de momento


numframe = ado1.Recordset.RecordCount
numpreguntas = 0
contador = 0
contador1 = 0
repuestas = 0
Tab1.Tabs = ado1.Recordset.RecordCount
Tab1.TabsPerRow = ado1.Recordset.RecordCount
For i = 1 To ado1.Recordset.RecordCount
\\'\\'\\'\\'\\'\\'\\'\\'Supuesta activacion de Tab- en sale el cambio del
\\'\\'\\'\\'\\'\\'\\' titubo en elsstab.tab pero no puedo crear objetos
Tab1.Tab = i - 1
Tab1.Caption = \"Pregunta No.\" + Str(i)


\\'\\'\\'--------------------Estable Frame de la Pregunta
ReDim Preserve f(i - 1)
Set f(i - 1) = Controls.Add(\"VB.frame\", \"f\" & CStr(i))
With f(i - 1)
Set .Container = Tab1
.Visible = True
.Caption = \"Sección: \" + CStr(i) + \" \" + ado1.Recordset.Fields(\"detalle\")
.Left = 400
.Top = 1320
.Width = 14000
.Height = (ado1.Recordset.Fields(\"no_preguntas\") * 500) + 800
End With
\\'\\'\\'\\'
If Len(ado1.Recordset.Fields(\"detalle\")) > largogrupo Then
largogrupo = Len(ado1.Recordset.Fields(\"detalle\"))
End If
preguntas (i)
ado1.Recordset.MoveNext
Next
End Sub