Dim auto1(5) As Image
 
Private Sub Form_Load()
i1 = 0
End Sub
 
Public Sub autokonstrukt_Timer()
 
 
 
 
 
 
    'hier wird eine zufällige Zahl erstellt. Sobald die Zufallszahl = 1,2,3 
    ' oder 4 wird,
    'dann wird ein Auto auf seiner zugeteilten Position erstellt
    Randomize
    R = Int(Rnd(1) * 4) + 1
 
    If R = 1 Then
        i1 = i1 + 1
        'Imagebox der Form1 hinzufügen
        Set auto1(i1) = Me.Controls.Add("VB.image", "auto1" & i1)
        With auto1(i1)
            .Move 10080, 240, 0, 0                          'Position bestimmen
            .Visible = True                                 'Imagebox 
            ' "sichtbar" machen
            .Picture = ImageList1.ListImages(1).Picture     'Bild einfügen
        End With
        auto1_fahren.Enabled = True
end if