Imports System.Drawing.Drawing2D
Public Class Form1
    Dim plist As New List(Of Point)
    Dim rnd As New Random
 
    Private Sub Form1_Load(sender As System.Object, e As EventArgs) Handles _
      MyBase.Load
        Me.ClientSize = New Size(1024, 600)
        For i As Int32 = 1 To 50
            plist.Add(New Point(i * 20, rnd.Next(50, 500)))
        Next
    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)
        Using p As New Pen(Brushes.Yellow, 3) With {.LineJoin = LineJoin.Bevel}
            e.Graphics.DrawLine(Pens.Green, 0, 550, 1024, 550) ' Grundlinie
            e.Graphics.DrawLine(Pens.Blue, 0, 500, 1024, 500)  ' Minlinie
            e.Graphics.DrawLine(Pens.Red, 0, 50, 1024, 50)     ' Maxlinie
            e.Graphics.DrawLines(p, plist.ToArray)
        End Using
    End Sub
End Class