Option Explicit
 
'Variable definieren für den Abstand der Linie von links
Public lngX As Long
'Variable für die zufällige Zahl
Public ZZ As Long
 
Private Sub Form_Load()
 
'PictureBoxHöhe auf eine bestimmte Höhe setzen
Pic.Height = 735
 
'Beim Starten Longwerte von lngX1 und lngX2 auf 0 setzen
lngX = 0
End Sub
 
Private Sub Timer1_Timer()
 
lngX = lngX + 15
 
'Eine Zufällige Zahl zwischen 0 und 500 generieren, mit der die Höhe der Linie 
' bestimmt wird
ZZ = Int((500 + 1) * Rnd)
 
'Linie zeichnen
Pic.Line (lngX, Pic.Height - 100)-(lngX, Pic.Height - ZZ - 100)
 
If lngX >= Pic.Width Then
Pic.Refresh
lngX = 0
End If
End Sub