Шахматная доска цвета - VB

Option Base 1
Private Sub Form_Load()
    Dim i As Integer, j As Integer, k As Integer, col As Long
    For i = 1 To 8
       For j = 1 To 8
           If (i + j) Mod 2 = 0 Then col = vbBlack Else col = vbWhite
           k = k + 1
           Load Picture1(k)
           Picture1(k).Left = Picture1(0).Width * (j - 1) + Picture1(0).Left
           Picture1(k).Top = Picture1(0).Height * (i - 1) + Picture1(0).Top
           Picture1(k).BackColor = col
           Picture1(k).Visible = True
       Next j
    Next i
End Sub