Public Class Page_2

    Public blnCircleClicked As Boolean 'Is The Circle Tool Clicked?
    Public blnSquareClicked As Boolean 'Is The Square Tool Clicked?

    Public cColor As Color 'Selected Color To Draw With

    'Declare Starting Points For Drawn Objects
    Private sStartX As Short
    Private sStartY As Short

    'Declare Ending points For Drawn Objects
    Private sEndX As Short
    Private sEndY As Short

    Private Sub btnCircle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCircle.Click

        'Set All Boolean Flags Of Tools Click To False, Except For The Current One : Circle
        blnSquareClicked = False
        blnCircleClicked = True

        'Refresh / Repaint The Buttons, To Indicate Current Selection State
        btnSquare.Refresh()
        btnCircle.Refresh()


    End Sub

   Private Sub btnCircle_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles btnCircle.Paint

        'Declare A GraphicsPath Object, Which Is Used To Draw The Shape Of The Button
        Dim CirclePath As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath

        'Create A 60 x 60 Circle Path
        CirclePath.AddEllipse(New Rectangle(0, 0, 30, 30))

        'Size Of The Button
        btnCircle.Size = New System.Drawing.Size(30, 30)

        If blnCircleClicked Then
            'If The Button Is Selected To Draw, Change The Color
            btnCircle.BackColor = Color.Blue
        Else
            'If The Button Is Not Selected To Draw With, Change Back To Original Color
            btnCircle.BackColor = Color.Black
        End If

        'Create The Circular Shaped Button, Based On The Graphics Path
        btnCircle.Region = New Region(CirclePath)

        'Release All Resources Owned By The Graphics Path Object
        CirclePath.Dispose()

    End Sub

    Private Sub btnSquare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSquare.Click

        'Set All Boolean Flags Of Tools Click To False, Except For The Current One : Square
        blnSquareClicked = True
        blnCircleClicked = False

        'Refresh / Repaint The Buttons, To Indicate Current Selection State
        btnSquare.Refresh()
        btnCircle.Refresh()

    End Sub

    Private Sub btnSquare_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles btnSquare.Paint

        'Declare A GraphicsPath Object, Which Is Used To Draw The Shape Of The Button
        Dim SquarePath As System.Drawing.Drawing2D.GraphicsPath = New System.Drawing.Drawing2D.GraphicsPath

        'Create A 30 x 30 Square Path
        SquarePath.AddRectangle(New Rectangle(0, 0, 30, 30))

        'Size Of The Button
        btnSquare.Size = New System.Drawing.Size(30, 30)

        If blnSquareClicked Then
            'If The Button Is Selected To Draw, Change The Color
            btnSquare.BackColor = Color.Blue
        Else
            'If The Button Is Not Selected To Draw With, Change Back To Original Color
            btnSquare.BackColor = Color.Black
        End If

        'Create The Square Shaped Button, Based On The Graphics Path
        btnSquare.Region = New Region(SquarePath)

        'Release All Resources Owned By The Graphics Path Object
        SquarePath.Dispose()

    End Sub

   Private Sub pbBody_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbBody.MouseDown

        'Initialise Starting Points Of Shape, Once Mouse Button Is Pressed Down
        sStartX = e.X
        sStartY = e.Y

    End Sub

    Private Sub pbBody_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pbBody.MouseUp

        'Create And Initialise Pens To Draw The Particular Outline Shapes With.  Color : Black, Width : 3
        Dim pCirclePen As New Pen(Color.Black, 3)
        Dim pSquarePen As New Pen(Color.Black, 3)

        'Create And Initialise Brushes To Fill The Particular Shapes With.  Color : Black
        Dim sbCircleBrush As New SolidBrush(Color.Black)
        Dim sbSquareBrush As New SolidBrush(Color.Black)

        'Initialise Ending Points Of Shape, Once Mouse Button Is Released
        sEndX = e.X
        sEndY = e.Y

        'Set The Images Drawn Thus Far In The Picture Box = To The In - Memory Image Object
        'Me.pbBody.Image = bImage


        'Determine If The Circle Tool Has Been Clicked
        If blnCircleClicked Then
            'Yes, It Has Been Clicked, Set The Pen's Color To Selected Color
            pCirclePen.Color = cColor

            'Draw The Circle With The Current Starting, And Ending Values
            pbBody.CreateGraphics.DrawEllipse(pCirclePen, sStartX, sStartY, sEndX - sStartX, sEndY - sStartY)

        End If

        'Determine If The Square Tool Has Been Clicked
        If blnSquareClicked Then
            'Yes, It Has Been Clicked, Set The Pen's Color To Selected Color
            pSquarePen.Color = cColor

            'Draw The Square With The Current Starting, And Ending Values

            Dim SquareX As Integer = Math.Min(sStartX, sEndX)
            Dim SquareY As Integer = Math.Min(sStartY, sEndY)
            Dim SquareWidth As Integer = Math.Abs(sStartX - sEndX)
            Dim SquareHeight As Integer = Math.Abs(sStartY - sEndY)

            pbBody.CreateGraphics.DrawRectangle(pSquarePen, SquareX, SquareY, SquareWidth, SquareHeight)

        End If

        'Dispose Of All Pens
        pCirclePen.Dispose()
        pSquarePen.Dispose()

        'Dispose Of All Brushes
        sbCircleBrush.Dispose()
        sbSquareBrush.Dispose()

    End Sub