Public Class Line
    Inherits System.Windows.Forms.Control
 
'.....
 
#Region "Protected Methods"
 
 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        MyBase.Dispose(disposing)
    End Sub
 
Protected Overrides ReadOnly Property CreateParams() As _
  System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20
            Return cp
        End Get
    End Property
 
Protected Overloads Overrides Sub OnPaint(ByVal e As _
  System.Windows.Forms.PaintEventArgs)
 
        g = e.Graphics
 
        If xLeft <= xRight Then
            Left = xLeft
        Else
            Left = xRight
        End If
        If yLeft <= yRight Then
            Top = yLeft
        Else
            Top = yRight
        End If
 
        'Dim brush As New SolidBrush(Me.Parent.BackColor)
        'g.FillRectangle(brush, 0, 0, Me.Width, Me.Height)
 
        Dim pen As New Pen(_color)
        If xLeft < xRight And yLeft < yRight Then
            g.DrawLine(pen, 0, 0, Me.Width, Me.Height)
        ElseIf xLeft > xRight And yLeft < yRight Then
            g.DrawLine(pen, Me.Width, 0, 0, Me.Height)
        ElseIf xLeft > xRight And yLeft > yRight Then
            g.DrawLine(pen, Me.Width, Me.Height, 0, 0)
        ElseIf xLeft < xRight And yLeft > yRight Then
            g.DrawLine(pen, 0, Me.Height, Me.Width, 0)
        End If
 
    End Sub
 
#End Region
 
End Class

Public Class Form1
    Private ln As Line
    Private ln2 As Line
    Private i As Long = 0
    Private j As Long = 0
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        i = i + 10
        If Not IsNothing(ln) Then ln.Dispose()
        ln = New Line
        ln.g = Module1.g
        ln.X_Left = i
        ln.X_Right = 100
        ln.Y_Left = 0
        ln.Y_Right = 100
        ln.Color = Color.Aquamarine
        Me.Controls.Add(ln)
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        j = j + 10
        If Not IsNothing(ln2) Then ln2.Dispose()
        ln2 = New Line
        ln2.X_Left = j
        ln2.X_Right = 100
        ln2.Y_Left = 0
        ln2.Y_Right = 100
        ln2.Color = Color.Red
        Me.Controls.Add(ln2)
    End Sub
End Class