g As Graphics
    Dim rys As Integer
    Dim x As Integer
    Dim y As Integer
    Dim x0 As Integer
    Dim y0 As Integer
    Dim e As Integer



    Dim p As New Pen(Color.Blue, 2) REM definicja pisaka z okresleniem grubosci i koloru


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        g = Me.CreateGraphics() REM Tw