Public Class Form1
 
    Private Sub Repaint(ByVal e As Graphics)
        e.Clear(Color.White)
        e.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
        Dim num2 As Integer = Me.TrackBar1.Value
        Dim num1 As Integer = 1
 
 
 
 
        Do While (((num2 >> 31) Xor num1) <= ((num2 >> 31) Xor 300))
            e.DrawLine(Pens.Blue, num1, 0, 300, num1)
            e.DrawLine(Pens.Peru, 300, num1, (300 - num1), 300)
            e.DrawLine(Pens.Salmon, (300 - num1), 300, 0, (300 - num1))
            e.DrawLine(Pens.Lime, 0, (300 - num1), num1, 0)
            num1 = (num1 + num2)
        Loop
        e.Dispose()
    End Sub
 
    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles TrackBar1.Scroll
        Repaint(Me.CreateGraphics)
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
        Me.DoubleBuffered = True
    End Sub
 
End Class