Créer dynamiquement une forme... problème sur container

Bonjour,

je souhaite créer dynamiquement une forme en lisant un fichier paramètre
j'arrive à créer mes frames et mes checkboxes mais je n'arrive pas à
attacher les checkboxes aux frames appropriées.

J'ai une forme frmTest, contenant une frame fQuery
Je lis le fichier paramètres avec les fonctions présentes dans un module
modParameters

mon souci est qu'une checkbox créée dynamiquement doit se trouver à
l'intérieur d'une frame créée dynamiquement.
je n'arrive pas à récupérer l'objet Frame afin d'assigner la propriété
Container pour mes CheckBoxes

Merci d'avance

'CODE :
Private Sub LoadInterface()
Dim cSection As New Collection, NbInformation As Long, CptSection As
Long, CptInformation As Long
Dim oFrame As VB.Frame, oCheckBox As VB.CheckBox, oSection, oInformation
Dim leftPosition As Long, midPosition As Long
'Création de la collection des Sections de Données
Set cSection = modParameters.GetDataSection
CptSection = 0
leftPosition = lLeftFrameSection
'Parcours de la collection des Sections de Données
For Each oSection In cSection
If bObjectsLoaded Then 'Récupération de la Frame déjà instanciée
Set oFrame = frmTest.Controls.Item("frame_" & oSection)
Else 'Création de la Frame
Set oFrame = frmTest.Controls.Add("VB.Frame", "frame_" & oSection)
End If
'Colle la Frame dans une autre Frame
Set oFrame.Container = frmTest.fQuery
With oFrame
.Caption = " " & oSection & " "
.Top = lTopFrameSection
.Appearance = 0
If CptSection > 0 Then
.Left = leftPosition
Else
.Left = lLeftFrameSection
End If
leftPosition = leftPosition + lWidthFrameSection +
lLeftFrameSection
'Récupération des informations de la Section Data en cours
NbInformation = modParameters.GetNbInformation(CptSection)
CptInformation = 0
'Parcours de la Collection des informations de la Section Data
en cours
For Each oInformation In GetSectionInformation(CptSection)
If bObjectsLoaded Then 'Récupération de la CheckBox
Set oCheckBox = frmTest.Controls.Item("checkbox_" &
oSection & "_" & CptInformation)
Else 'Création de la CheckBox
Set oCheckBox = frmTest.Controls.Add("VB.CheckBox",
"checkbox_" & oSection & "_" & CptInformation)
End If
'Assigne les propriétés (.Caption, .Value, ...) de la CheckBox
Call modParameters.UpdateCheckBox(oCheckBox, CptSection,
CptInformation)
With oCheckBox
.Top = lTopCheckBox + CptInformation * (lBlankCheckBox +
lHeightCheckBox)
.Left = lLeftCheckBox
.Width = lWidthCheckBox
.Height = lHeightCheckBox
End With
CptInformation = CptInformation + 1
Set oCheckBox = Nothing
Next oInformation
CptSection = CptSection + 1
.Width = lWidthFrameSection
.Visible = True
End With
Set oFrame = Nothing
Next oSection
End Sub