Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim rect As New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height)

    Dim bmp As New Bitmap(rect.Width, rect.Height)

    Dim w = rect.Width / 5F

    Dim h = rect.Height / 5F

    Using g = Graphics.FromImage(bmp)

        g.Clear(Color.White)

        For x = 0 To 4

            For y = 0 To 4

                If CBool((x + y) And 1) Then

                    g.FillRectangle(Brushes.Red, x * w, y * h, w, h)

                End If

            Next

        Next

    End Using

    PictureBox1.Image = bmp

End Sub



Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

    Dim rect As New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height)

    Dim bmp As New Bitmap(rect.Width, rect.Height)

    Dim hs = HatchStyle.LargeCheckerBoard

    'Dim hs = HatchStyle.SmallCheckerBoard 

    Using g = Graphics.FromImage(bmp), hb As New HatchBrush(hs, Color.White, Color.Red)

        g.FillRectangle(hb, rect)

    End Using

    PictureBox1.Image = bmp

End Sub