Salut,
Regarde ce code (un peu modifier pour l'exemple)
la ligne s'y affiche bien.
Option Explicit
Private i_ligne As Integer
Private Sub Command1_Click()
i_ligne = i_ligne + 1
Call LoadGroupObject(i_ligne)
End Sub<hr />
Private Sub LoadGroupObject(idx As Integer)
Call Load(Frame1(idx))
With Frame1(idx)
Set .Container = Picture1
.Visible = True
.Top = (idx - 1) * .Height
End With
Call Load(Line7(idx))
With Line7(idx)
Set .Container = Frame1(idx)
.Visible = True
.Y1 = 300
.Y2 = 300
End With
J'ai déjà eu un probleme semble avec des frames créés dynamiquement.
En supposant que le Line7 est un type de controle :
dim unctl as control
Dim uneLigne as Line7
For each unctl in frame(tonIndex)
If TypeOf unCtl Is Line7
set uneLigne = unCtl
uneLigne.Visible = true
uneLigne.zorder = 25 'Nombre assez haut pour etre au premier plan
end if
next
ça fonctionne si le contener de ta Line est ton frame.