Создать приложение «Шахматная доска». Исправить код

Dim CurrentName, CurrentNumber As String, n, m As Integer
'Option Explicit
'Инициализация
 
Private Sub Form_Load()
Dim i, j As Integer
'Dim strC As String
'Пользовательские координаты
 
picChess.Scale (0, 0)-(CInt(Text1.Text), CInt(Text1.Text))' Здесь задаю размер с помощью text1
For i = 0 To CInt(Text1.Text) - 1
    For j = 0 To CInt(Text1.Text) - 1
'Закрашивание полей шахматной доски
'Если сумма координат четная-поле белое,
'если нечетная-поле черное
        If (i + j) Mod 2 = 0 Then
            picChess.Line (i, j)-(i + 1, j + 1), vbWhite, BF
        Else: picChess.Line (i, j)-(i + 1, j + 1), vbGreen, BF
        End If
'Печать в каждом поле его названия
        picChess.CurrentX = i
        picChess.CurrentY = j
        picChess.Print Chr(i + 97) & CStr(CInt(Text1.Text) - j)
    Next j
Next i
 
End Sub
 
 
Private Sub picChess_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Выбор поля
'Вычисление порядковых номеров
'для горизонтали и вертикали
'выбранного поля
 CurrentName = Fix(X) + 1
 CurrentNumber = 9 - (Fix(Y) + 1)
 'Печать названия выбранного поля
 Label1.Caption = Chr(CurrentName + 96) & CStr(CurrentNumber)
End Sub

Private Sub Text1_Change()
 
End Sub