Vielen Dank für eure Antworten. Zunächst zu E-Sorcerer: Ich wollte die Linien über Variablen ansprechen, wie z.B.
i = 1
While i>20
Linei.x1 = Linei.x1+1
Linei.x2 = Linei.x2+1
i = i+1
Wend
Doch das läßt VB nicht zu. Meine Lösung war Linien zu zeichnen über Form1.Line, doch da flimmerts, weil ich die alte Linie erst löschen muß und dann die neue zeichne.
Ich habe meinen Code mal auf's wesentliche beschränkt:
While i < AnzahlLinien
Picture1.Line (Linie(i), -500)-(Linie(i), -4500), QBColor(7) 'alte Linie überzeichnen
Linie(i) = Linie(i) + RichtungLinie(i) * GeschwindigkeitLinie(i) 'neue position bestimmen
Picture1.Line (Linie(i), -500)-(Linie(i), -4500), QBColor(4) 'neue Linie zeichnen
i = i + 1
Wend
Vielen Dank für eure Mühen
jhaaf