Public X() As Single
    Public Y() As Single
    Public Start1 As Integer = 1
    Public i As Integer = 0
    Public j As Integer = 1
    Public k As Integer = 0
    Public l As Integer = 1
    Public Grafik As System.Drawing.Graphics
 
Public Sub Zufallslinien1()
 
        'Variablen deklarieren
        Dim Grün As New Pen(Color.YellowGreen)
 
        If Start1 = 1 Then
            X(i) = 0
            X(j) = 1.33
            Y(k) = 50
            Start1 = 0
        End If
 
        Randomize()
 
        Grafik = Me.pctMesswert1.CreateGraphics
        Y(l) = (Int((70 - 30 + 1) * Rnd() + 30))
        Grafik.DrawLine(Grün, X(i), Y(j), X(k), Y(l))
 
        i += i
        j += j
        k += k
        l += l
 
        X(i) = X(i) + 1.33
        X(j) = X(j) + 1.33
        Y(k) = Y(l)
 
        'Falls mann am rechten Ende der PictureBox angekommen ist am linken 
        ' Ende wieder
        'von vorne beginnen.
        If X(j) >= 700 Then
            Me.pctMesswert1.Refresh()
            X(i) = 0
            X(j) = 1.33
        End If
 
    End Sub