Imports System.Drawing.Drawing2D
Public Class Form1
    Dim plist As New List(Of Point)
    Dim rnd As New Random
    Dim pos As Int32 = 0
    Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles _
      MyBase.Load
        Me.ClientSize = New Size(1024, 600)
        Me.DoubleBuffered = True
        For i As Int32 = 1 To 15360
            plist.Add(New Point(i, rnd.Next(50, 500)))
        Next
    End Sub
 
    Private Sub Form1_MouseMove(sender As Object, e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        pos = (e.X \ 10) * 144
        Me.Invalidate()
    End Sub
 
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles _
      Me.Paint
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        e.Graphics.Clear(Color.Black)
        e.Graphics.TranslateTransform(-pos, 0)
        Using p As New Pen(Brushes.Yellow, 3) With {.LineJoin = LineJoin.Bevel}
            e.Graphics.DrawLine(Pens.Green, 0, 550, 15360, 550) ' Grundlinie
            e.Graphics.DrawLine(Pens.Blue, 0, 500, 15360, 500)  ' Minlinie
            e.Graphics.DrawLine(Pens.Red, 0, 50, 15360, 50)     ' Maxlinie
            e.Graphics.DrawLines(p, plist.ToArray)
            Me.Text = "Werte ab Position: " & pos.ToString
        End Using
    End Sub
End Class