Dim kartka As Graphics = Me.CreateGraphics
        Dim narysowany_kolor_czarny As Boolean = False
        Dim wielkosc_kwadratu_x As Integer = Me.Width \ 8
        Dim wielkosc_kwadratu_y As Integer = (Me.Height - 30) \ 8

        For odleglosc_na_osi_y As Integer = 0 To Me.Height - 30 Step (Me.Height - 30) \ 8
            For odleglosc_na_osi_x As Integer = 0 To Me.Width Step Me.Width \ 8
                If narysowany_kolor_czarny = False Then
                    kartka.FillRectangle(Brushes.Black, odleglosc_na_osi_x, odleglosc_na_osi_y, wielkosc_kwadratu_x, wielkosc_kwadratu_y)
                    narysowany_kolor_czarny = True
                Else
                    kartka.FillRectangle(Brushes.White, odleglosc_na_osi_x, odleglosc_na_osi_y, wielkosc_kwadratu_x, wielkosc_kwadratu_y)
                    narysowany_kolor_czarny = False
                End If
            Next odleglosc_na_osi_x
        Next odleglosc_na_osi_y