Dim kartka As Graphics = Me.CreateGraphics
        Dim wysokosc_okna As Integer = Me.Height
        Dim szerokosc_okna As Integer = Me.Width
        Dim wieksza_wartosc As Integer

        kartka.Clear(Color.LightGray)
        If szerokosc_okna > wysokosc_okna Then
            wieksza_wartosc = Me.Width
        Else : wieksza_wartosc = Me.Height
        End If
        For j As Integer = 1 To wieksza_wartosc Step 20
            For i As Integer = 10 To wieksza_wartosc Step 20
                kartka.DrawLine(Pens.Red, 0, i, szerokosc_okna, i)
                kartka.DrawLine(Pens.Black, i, 0, i, wysokosc_okna)
            Next i
            kartka.DrawLine(Pens.Black, 0, j, szerokosc_okna, j)
            kartka.DrawLine(Pens.Red, j, 0, j, wysokosc_okna)
        Next j