Public Class Form1
        Dim g As Graphics
    Dim rys As Integer
    Dim przeciaganie As Boolean
    Dim nacisniety As Boolean
    Dim x0, y0 As Single
    Dim x, y As Single



    Dim p As New Pen(Color.Blue, 2) REM definicja pisaka z okresleniem grubosci i koloru
    Private Sub ProstokatToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProstokatToolStripMenuItem.Click
        rys = 1
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            g = Me.CreateGraphics() REM Tworzenie obiektu graficznego na formularzu
        End Sub
    Private Sub CzyszczenieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CzyszczenieToolStripMenuItem.Click
        g.Clear(Me.BackColor) REM odświeżenie okna
    End Sub
    Private Sub PrzeciaganieToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PrzeciaganieToolStripMenuItem.Click
        przeciaganie = True
        Label1.Visible = False
        TextBox1.Visible = False
        Label2.Visible = False
        TextBox2.Visible = False
    End Sub
    Private Sub Form1_MouseDown(sender As Object, e As MouseEventArgs) Handles MyBase.MouseDown
        If Not przeciaganie Then


            Dim a, b As Single

        REM odczytaj położenie myszy
        x = e.X
        y = e.Y
        Select Case rys
            Case 1
                a = TextBox1.Text
                b = TextBox2.Text
                g.DrawRectangle(p, x, y, a, b)
            Case 2
                a = TextBox1.Text

                g.DrawRectangle(p, x, y, a, a)
            Case 3
                a = TextBox1.Text

                g.DrawEllipse(p, x - a / 2, y - a / 2, a, a)
        End Select
        Else
        nacisniety = True
            x0 = e.X
            y0 = e.Y
        End If
    End Sub

    Private Sub ProstokątToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProstokatToolStripMenuItem.Click
        rys = 1
        Label1.Text = "A ="
        Label2.Text = "B ="
        Label2.Visible = True
        TextBox2.Visible = True
    End Sub
    Private Sub KwadratToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles KwadratToolStripMenuItem.Click
        rys = 2
        Label1.Text = "A ="
        Label2.Visible = False
        TextBox2.Visible = False
    End Sub
    Private Sub OkrągToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OkragToolStripMenuItem.Click
        rys = 3
        Label1.Text = "R ="
        Label2.Visible = False
        TextBox2.Visible = False
    End Sub

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles MyBase.MouseMove
        Dim a, b As Single
        REM odczytaj położenie myszy
        x = e.X
        y = e.Y
        If nacisniety = True Then
            g.Clear(Me.BackColor) REM odświeżenie okna

            Select Case rys
                Case 1
                    g.DrawRectangle(p, x0, y0, x - x0, y - y0)
                Case 2
                    g.DrawRectangle(p, x0, y0, x - x0, y - y0)
                Case 3
                    g.DrawEllipse(p, x0, y0, x - x0, y - y0)
            End Select
        End If
    End Sub
    Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles MyBase.MouseUp
        nacisniety = False
        Select Case rys
            Case 1
                g.DrawRectangle(p, x0, y0, x - x0, y - y0)
            Case 2
                g.DrawRectangle(p, x0, y0, x - x0, y - y0)
            Case 3
                g.DrawEllipse(p, x0, y0, x - x0, y - y0)
        End Select
    End Sub
End Class