Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
Dim X As Integer
Dim y As Integer
For X = 0 To 360 Step 90
For y = 0 To 360 Step 90
e.Graphics.FillRectangle(New SolidBrush(Color.Black), X, y, 45, 45)
Next
Next
For X = 45 To 315 Step 90
For y = 0 To 360 Step 90
e.Graphics.FillRectangle(New SolidBrush(Color.Red), X, y, 45, 45)
Next
Next
For X = 45 To 315 Step 90
For y = 45 To 315 Step 90
e.Graphics.FillRectangle(New SolidBrush(Color.Black), X, y, 45, 45)
Next
Next
For X = 0 To 360 Step 90
For y = 45 To 315 Step 90
e.Graphics.FillRectangle(New SolidBrush(Color.Red), X, y, 45, 45)
Next
Next
End Sub