Positionner les controls dans une frame

Salut à tous!
je voudrais lorsque les controls sont créés, qu'ils soient positionnés dans la frame en le bloc i à gauche, le bloc j au milieu, puis le bloc k à droite

voici le code:

Sub AjoutChekboxAuto()
Dim Obj As Control
Dim Cl As Classe1
Dim i, j, k As Integer

Set Collect = New Collection

For i = 1 To 15 'boucle pour la création des CheckBox
Set Obj = FrCheck.Controls.Add("forms.Checkbox.1")

With Obj
.Name = "Opt" & i
.Object.Caption = Sheets(i).Name
.Left = 10
.Top = 20 * i + 10
.Width = 130
.Height = 20
End With
'ajout de l'objet dans la classe
Set Cl = New Classe1
Set Cl.ChkBx = Obj
Collect.Add Cl
Next i

For j = 16 To 30 'boucle pour la création des CheckBox
Set Obj = FrCheck.Controls.Add("forms.Checkbox.1")
With Obj
.Name = "Opt" & j
.Object.Caption = Sheets(j).Name
.Left = 150
.Top = 20 * j + 10
.Width = 130
.Height = 20
End With

'ajout de l'objet dans la classe
Set Cl = New Classe1
Set Cl.ChkBx = Obj
Collect.Add Cl
Next j

For k = 31 To Sheets.Count 'boucle pour la création des CheckBox
Set Obj = FrCheck.Controls.Add("forms.Checkbox.1")
With Obj
.Name = "Opt" & k
.Object.Caption = Sheets(k).Name
.Left = 300
.Top = 20 * k + 10
.Width = 130
.Height = 20
End With

'ajout de l'objet dans la classe
Set Cl = New Classe1
Set Cl.ChkBx = Obj
Collect.Add Cl
Next k
End Sub

j'ai bien le décalage vers la droite, mais les controls restent à la suite. Ils ne se positionnent pas en haut.

merci pour l'aide.