how to draw editable/removable (in any direction) lines in vb .net

RefreshProperties(RefreshProperties.Repaint), _

Category("Values"), _

Description("Set the properties for hatch desing")> _

__HatchOptions = Value

Category("Design"), _

Description("Set the shape")> _

__Shape = Value

Invalidate()

True), _

Public Property LineColor() As System.Drawing.Color

Get

Return __LineColor

End Get

Set(ByVal Value As System.Drawing.Color)

End Set

End Property

'''

Browsable(True), _

Public Property AlphaBlend() As Byte

Get

Return __AlphaBlend

End Get

Set(ByVal Value As Byte)

End Set

End Property

'''

#End Region

'''

#Region "Overrides"

'''

Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

End If

End If

MyBase.Dispose(disposing)

End Sub

'''

Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)

End Sub

'''

#End Region

'''

#Region "Procedures"

'''

Private Sub BorderEx_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Resize

End Sub

'''

Public Sub LoadDefaults()

'********************************************************

' Load default values

'********************************************************

With Me

.__DrawGradiant = False

.__DrawHatch = False

.Size = New Size(150, 20)

End With

End Sub

'''

Public Function ShouldSerializeFillColor() As Boolean

Return Not (__LineColor.ToArgb = Color.Black.ToArgb)

End Function

'''

Private Sub ReDrawControl(ByRef g As Graphics)

'********************************************************

' Controls the drawing flow

'********************************************************

'Calculate Regions

'FillGradiant

If __DrawGradiant Then Draw_Gradient(g)

'FillHatch

If __DrawHatch Then Draw_Hatch(g)

'DrawBorder

End Sub

'''

Private Sub CreateRegion()

'********************************************************

' Creates regions for the selected shape

'********************************************************

Dim graphics_path As GraphicsPath = New GraphicsPath

'''

Ln_Points = GenerateLinePoints(New Rectangle(0, 0, Me.Width, Me.Height))

'graphics_path.AddLine(Ln_Points(0), Ln_Points(1))

Fill_Region = New Region(graphics_path)

End Sub

'''

Private Sub Draw_Line(ByRef g As Graphics)

'*******************************************************

'Draws the border for the selected shape

'*******************************************************

Dim _Brush As Drawing2D.LinearGradientBrush

Dim _Pen As Pen

Try

If __LineOptions.LineGradiant Then

_Brush = New Drawing2D.LinearGradientBrush(New Rectangle(0, 0, Me.Width, Me.Height), __LineOptions.StartColor, __LineOptions.EndColor, __LineOptions.GradiantStyle)

_Pen = New Pen(_Brush, __LineOptions.BorderWidth)

Else

_Pen = New Pen(__LineOptions.BorderColor, __LineOptions.BorderWidth)

End If

g.SmoothingMode = Me.SmoothMode

Catch ex As Exception

Throw ex

Finally

If Not IsNothing(_Pen) Then _Pen.Dispose()

If Not IsNothing(_Brush) Then _Brush.Dispose()

End Try

End Sub

'''

Private Sub Draw_Gradient(ByRef g As Graphics)

'********************************************************

' Fills the control with gradiant brush

'********************************************************

Dim __GradientBrush As LinearGradientBrush

Try

__GradientBrush = New LinearGradientBrush(New Rectangle(0, 0, Me.Width, Me.Height), Me.__GradiantOptions.StartColor, Me.__GradiantOptions.EndColor, Me.__GradiantOptions.GradiantStyle)

Select Case __Shape

Case Shapes.HorizontalLine

End Select

Catch ex As Exception

Throw ex

Finally

End Try

End Sub

'''

Private Sub Draw_Hatch(ByRef g As Graphics)

'********************************************************

' Draws Hatch design on the control

'********************************************************

Dim __HatchBrush As HatchBrush

Try

__HatchBrush = New HatchBrush(Me.__HatchOptions.HatchStyle, Me.__HatchOptions.PenColor, Me.__HatchOptions.BackColor)

g.SmoothingMode = Me.SmoothMode

Select Case __Shape

Case Shapes.HorizontalLine

End Select

Catch ex As Exception

Throw ex

Finally

End Try

End Sub

'''

Private Function GenerateLinePoints(ByVal Rect As Rectangle) As Point()

'********************************************************

' Generates Line points for the control

'********************************************************

Dim Ln_Points(2) As Point

Dim _Width As Integer = Rect.Width

Dim _Height As Integer = Rect.Height

Dim StartPoint As Point

Dim EndPoint As Point

Try

Select Case Me.Shape

Case Shapes.HorizontalLine

StartPoint = New Point(Rect.Left, Rect.Top + (_Height / 2))

EndPoint = New Point(Rect.Left + _Width, Rect.Top + (_Height / 2))

Exit Select

Case Shapes.VerticalLine

StartPoint = New Point(Rect.Left + (_Width / 2), Rect.Top)

EndPoint = New Point(Rect.Left + (_Width / 2), Rect.Top + _Height)

Exit Select

Case Shapes.NWSEDiagonal

' \

' \

' \

StartPoint = New Point(Rect.Left, Rect.Top)

EndPoint = New Point(Rect.Left + _Width, Rect.Top + _Height)

Exit Select

Case Shapes.NESWDiagonal

' / not working properly

' /

' /

StartPoint = New Point(Rect.Left + _Width, Rect.Top)

EndPoint = New Point(Left, Rect.Top + _Height)

Exit Select

Case Else

StartPoint = New Point(Rect.Left, Rect.Top + (_Height / 2))

EndPoint = New Point(Rect.Left + _Width, Rect.Top + (_Height / 2))

Exit Select

End Select

Return Ln_Points

Catch ex As Exception

Throw ex

Return Nothing

Finally

End Try

End Function

'''

Private Sub OnPropertyChange()

ReDrawControl(Me.CreateGraphics)

End Sub

'''

Private Sub __GradiantOptions_PropertyChanged() Handles __GradiantOptions.PropertyChanged

If __DrawGradiant Then Me.Invalidate()

End Sub

'''

Private Sub __HatchOptions_PropertyChanged() Handles __HatchOptions.PropertyChanged

If __DrawHatch Then Me.Invalidate()

End Sub

'''

Private Sub __LineOptions_PropertyChanged() Handles __LineOptions.PropertyChanged

Me.Invalidate()

End Sub

'''

#End Region

'''

End Class

#End Region

#Region "Hacth"

#Region "Hatch Properties class"