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

Option Explicit
 
Private Sub Form_Load()
    Dim i As Long
    
    AutoRedraw = True
    DrawMode = vbInvert
    
    For i = 0 To 4
        Line (0, ScaleHeight / 4 * i)-Step(ScaleWidth, ScaleHeight / 8), vbBlack, BF
        Line (ScaleWidth / 4 * i, 0)-Step(ScaleWidth / 8, ScaleHeight), vbBlack, BF
    Next
    
End Sub

VERSION 5.00
Begin VB.Form FormMySoftIce 
   Caption         =   "MySoftIce"
   ClientHeight    =   5685
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   6540
   LinkTopic       =   "Form1"
   ScaleHeight     =   5685
   ScaleWidth      =   6540
   StartUpPosition =   3  'Windows Default
   Begin VB.PictureBox Picture1 
      Height          =   500
      Index           =   0
      Left            =   240
      ScaleHeight     =   435
      ScaleWidth      =   435
      TabIndex        =   0
      Top             =   120
      Width           =   500
   End
End
Attribute VB_Name = "FormMySoftIce"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
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
              Picture1(k).BackColor = col
       Next j
    Next i
End Sub

Picture1(k).backcolor=col
'и только потом
k=k+1 'OPTION BASE ЗДЕСЬ НЕ ПОМОЖЕТ, нет 64-й картинки на форме.