Mi problema es el siguiente:


Tengo en el formulario un frame que contiene una etiqueta y 5 botones de opcion y lo que quiero hacer es que con este frame y los controles q contiene, crear mas frames durante ejecución, con la instrucción Load cargo mas frame en ejecución, pero me los crea vacios, ya intente crear una etiqueta o botones de opción con Load, pero me los carga dentro del frame original (primero) como le hago para que los cargue y los coloque en los frames creados durante la ejecución?
espero haber sido claro y me puedan ayudar. Gracias

Debes usar la propiedad .Container del Label y los Commands fijando en la misma el Frame al que quieras que pertenezcan ...

Aqui te dejo un ejemplo de como hacerlo...

En un form colocas un frame con index = 0, dentro del frame colocas una Label con index= 0 y 5 command buttons con index 0 al 4... Es justo lo que dices que tienes ...
Coloca tambien un command cmdCargarFrame sin index. Al oprimir este cmdCargarFrame, se iran generando nuevos frames (con label y commands dentro) y posicionandose en la pantalla uno al lado de otro ...

Sale...

''''''''''''''''''

Private Sub cmdCargarFrame_Click()
Dim nFrameIndex As Integer, nFrameIndexPrev As Integer
Dim nLabelIndex As Integer
Dim nCmdIndex As Integer
Dim nCmd As Integer

nFrameIndexPrev = Me.Frame1.Count - 1
nFrameIndex = Me.Frame1.Count

Load Me.Frame1(nFrameIndex)
Me.Frame1(nFrameIndex).Top = Me.Frame1(nFrameIndexPrev).Top
Me.Frame1(nFrameIndex).Left = Me.Frame1(nFrameIndexPrev).Left + Me.Frame1(nFrameIndexPrev).Width + 1
If Me.Frame1(nFrameIndex).Left + Me.Frame1(nFrameIndex).Width > Me.ScaleWidth Then
Me.Frame1(nFrameIndex).Top = Me.Frame1(nFrameIndexPrev).Top + Me.Frame1(nFrameIndexPrev).Height + 1
Me.Frame1(nFrameIndex).Left = Me.Frame1(0).Left
End If
Me.Frame1(nFrameIndex).Caption = "Frame1(" & nFrameIndex & ")"

nLabelIndex = Me.Label1.Count
Load Me.Label1(nLabelIndex)
Set Me.Label1(nLabelIndex).Container = Me.Frame1(nFrameIndex)
Me.Label1(nLabelIndex).Top = Me.Label1(0).Top
Me.Label1(nLabelIndex).Left = Me.Label1(0).Left
Me.Label1(nLabelIndex).Caption = "Label1(" & nLabelIndex & ")"
Me.Label1(nLabelIndex).Visible = True

For nCmd = 0 To 4
nCmdIndex = Me.Command1.Count
Load Me.Command1(nCmdIndex)
Set Me.Command1(nCmdIndex).Container = Me.Frame1(nFrameIndex)
Me.Command1(nCmdIndex).Top = Me.Command1(nCmd).Top
Me.Command1(nCmdIndex).Left = Me.Command1(nCmd).Left
Me.Command1(nCmdIndex).Caption = "Command1(" & nCmdIndex & ")"
Me.Command1(nCmdIndex).Visible = True
Next

Me.Frame1(nFrameIndex).Visible = True
End Sub


Private Sub Form_Load()
Me.WindowState = vbMaximized
End Sub


Private Sub Form_Resize()
Me.cmdCargarFrame.Top = (Me.ScaleTop + Me.ScaleHeight) - (Me.cmdCargarFrame.Height * 1.5)
Me.cmdCargarFrame.Left = (Me.ScaleLeft + Me.ScaleWidth) - (Me.cmdCargarFrame.Width * 1.5)
End Sub

''''''''''''''''''''

Espero se entienda ...
Edited by: Semper

gracias Semper, era lo q queria, solo que no eran botones de comandos, sino botones de opcion... pero igual sirve