Используя вложенные циклы , изобразить шахматную доску

Dim X As Long, Y As Long, color1 As Long, color2 As Long
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim j As Integer, i As Integer
Private Sub DRAW()
ReDim kNOP(i, j)
 For c = 1 To i
   CurrentY = b - 300
   CurrentX = a * c + a / 6
   Print c
   For d = 1 To j
       X = a * c
       Y = b * d
       CurrentY = b * d
       CurrentX = a - 400
       Print d
       If (c + d) Mod 2 = 0 Then Line (X, Y)-(X + a, Y + b), color1, BF Else Line (X, Y)-(X + a, Y + b), color2, BF
       CurrentY = b * d
       CurrentX = a * i + a
       Print d
    Next d
    CurrentX = a * c + a / 6
    CurrentY = b * d
    Print c
 Next c
End Sub
Private Sub Form_Load()
  Font.Size = 13
  a = 500
  b = 500
  j = 8
  i = 8
  color1 = vbWhite
  color2 = vbBlack
  DRAW
End Sub
Private Sub Timer1_Timer()
   color1 = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
   color2 = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)
  DRAW
End Sub
Private Sub COLOR_Click()
   Timer1.Interval = Val(InputBox("Ââåäèòå èíòåðâàë ìåæäó èçìåíåíèåì öâåòà, ñåê", 3)) * 1000
   Timer1.Enabled = True
End Sub

Option Explicit
Dim i&, j&, k&
 
Private Sub Form_Load()
    For i = 1 To 8
    For j = 1 To 8
        If (i + j) Mod 2 Then
            k = 10 * i + j
            Load img(k)
            img(k).Left = 50 * j - 20
            img(k).Top = 50 * i - 20
            img(k).ZOrder
            img(k).Picture = img1.Picture
            img(k).Visible = True
        End If
    Next j, i
End Sub

Const n = 8
Sub Pic_Click()
 
Picture1.Scale (1, 1)-(n + 1, n + 1)
 
Randomize (Timer)
 For i = 1 To n
    For j = 1 To n
    r = Int(Rnd * 256): g = Int(Rnd * 256): B = Int(Rnd * 256)
        Picture1.Line (i, j)-(i + 1, j + 1), RGB(r, g, B), BF
        Picture1.Line (i, j)-(i + 1, j + 1), 0, B
        Picture1.CurrentX = i: Picture1.CurrentY = j
        Picture1.Print i + (j - 1) * n
    Next j
    Next i
 
End Sub
 
Private Sub Form_Load()
Picture1.AutoRedraw = True
Timer1.Enabled = False
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Timer1.Enabled = False
Pic_Click
Else
Timer1.Interval = n * (X + n * Y)
Timer1.Enabled = True
End If
End Sub
 
Private Sub Timer1_Timer()
Pic_Click
End Sub