Dim Ix%
 
Ix = Frame1.Count 'neuer Index
 
Load Frame1(Ix) 'neuen Container laden
With Frame1(Ix)
  .Move 200, 15 'Container positionieren
  .Visible = True 'Container sichtbar
End With
 
Load Picture1(Ix) 'neues Control laden
With Picture1(Ix)
  Set .Container = Frame1(Ix) 'Control in Container
  .Move 100, 200 'Control positionieren
  .Visible = True 'Control sichtbar
End With

Gruss,

Zardoz