'Hallo Elbarto
'Beispiel : Label-Control in Picture-Control dynamisch einfügen.
'N.G.:30.04.03.d.o.
'Benötigt : 1 Label-Control     = Label1 mit dem Index      = 0 (Label1(0))
'           1 Picture-Control   = Picture1 mit dem Index    = 0 (Picture1(0))
'
Private Sub Command1_Click()
'Picture1 ist der Container in dem das  Label Control geladen wird...
'Deine Frage lautet das Du das Picture und Label Control dynamisch lädst!
'Also ist eine simple Vorgehensweise so:
'
    Picture1(0).Visible = False     'Es ist hier erforderlich das ein
                                    'Picture-Control (Picture1) mit dem Index = 
                                    ' 0
                                    'existiert.
    Label1(0).Visible = False       'Dito für Label1. Beide Controls unsichtbar.
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Load Picture1(1)                'Neues Picture-Control laden
    Load Label1(1)                  'Neues Label-Control laden..
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Picture1(1).Left = 0            'Neues Picture-Control auf x = 0 und y = 0
    Picture1(1).Top = 0             'positionieren.
    Picture1(1).BackColor = vbBlue  'Zum Test erfolgt die Ausgabe des dynamisch
                                    'geladenen Controls in der Hintergrundfarbe
                                    'Blau.
    Label1(1).Left = 0              'Die Positionshinweise hier dienen zur
    Label1(1).Top = 0               'Positionierung in dem Container( also in 
    ' dem
                                    'Picture-Control)
 
    Picture1(1).Visible = True      'Neu geladenes Control -sichtbar...
    Label1(1).Visible = True        'Neu geladenes Control -sichtbar...
 
    Set Label1(1).Container = Picture1(1) 'Jetzt wird das Label - Control das
                                          'zur Runtime erzeugt wurde in das
                                          'Picture-Control das zur Laufzeit 
                                          ' erzeugt
                                          'wurde (Picture1(1) dient als 
                                          ' Container)
                                          'eingefügt.
 
    'MfG Frank
    'p.s. Die benötigten Methoden und Eigenschaften liegen natürlich bei dir!
End Sub