track_baseline.vb

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
        Dim generator As New Random
        Dim myPen As Pen
        Dim myGraphics As Graphics

        myPen = New Pen(Brushes.Black, 2)
        myGraphics = Me.CreateGraphics

        myGraphics.DrawRectangle(myPen, 100, 50, 600, 70)
        myGraphics.DrawRectangle(myPen, 100, 150, 600, 70)
        myGraphics.DrawLine(myPen, 650, 20, 650, 240)
    End Sub
End Class