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

Option Explicit
'
'------------------- Шахматная доска
'Двумерный динамический массив и динамическое создание объектов
'Данный пример рисует шахматную доску, подсвечивает клетку под указателем
'при нажатии показывает координаты клетки и цвет точки указателя
'by the fever brain 2016
'-----------------------
'
Const r = 420, rr = r 'r=Отступ, rr=задание размера (кратное твипу 15)
Dim sh() As Shape, ash As Shape
Dim WithEvents pb As PictureBox 'Контейнер
Dim i&, j&, l&, t&, ll&, tt&, s$, ss$, v 'прочие переменные
 
 
Private Sub pb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    l = ash.Left: t = ash.Top: ll = l + ash.Width: tt = t + ash.Height
    If Button = 1 And X > l And X < ll And Y > t And Y < tt Then
        s = ash.Name
        Select Case pb.Point(X, Y)
        Case vbBlack: ss = "черный"
        Case vbWhite: ss = "белый"
        Case Else: ss = "синий"
        End Select
        Me.Caption = "Клетка " & Mid$(s, 3, 1) & "," & Mid$(s, 4, 1) & " Цвет " & ss
    End If
End Sub
 
Private Sub pb_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    For Each v In Controls
        If TypeName(v) = "Shape" And v.Container.Name = "pb" Then
            l = v.Left: t = v.Top: ll = l + v.Width: tt = t + v.Height
            If X > l And X < ll And Y > t And Y < tt Then
                If v.BorderColor = vbButtonShadow Then Set ash = v: ash.BorderColor = 0: ash.ZOrder 0
            Else
                v.BorderColor = vbButtonShadow
            End If
        End If
    Next
End Sub
 
 
Private Sub Form_Load()
    Dim ii&
    Do
        v = InputBox("Число клеток от 2 до 9" & vbLf & _
        "Напимер 2x2, 3x3, 4x4, 5x5 и тд", , 8)
        If IsNumeric(v) Then If v > 1 And v < 10 Then Exit Do
        If v = "" Then End 'Конец программы
    Loop
    
    ReDim sh(v, v) 'Формируем массив клеток
    Set pb = Controls.Add("vb.PictureBox", "pb")
    For i = 0 To UBound(sh, 1) - 1
        For j = 0 To UBound(sh, 2) - 1
            Set sh(i, j) = Controls.Add("vb.Shape", "sh" & i & j, pb)
            With sh(i, j)
                .Move i * rr, j * rr, rr, rr
                .BackStyle = 1
                If ii Mod 2 Then .BackColor = ColorConstants.vbBlue
                ii = ii + 1 + Abs(j Mod 2 And j = UBound(sh, 1) - 1)
                .BorderWidth = 3
                .BorderColor = vbButtonShadow
                .Visible = 1
            End With
        Next
    Next
    With pb
        .Move r, r, rr * i, rr * j
        .BorderStyle = 0
        .Visible = 1
    End With
    Me.Caption = "Нажми на клетку"
End Sub

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 = vbWhite Else col = vbBlack
              k = k + 1
              Picture1(k).BackColor = col
       Next j
    Next i
Picture1(0).Visible = True
End Sub
'vbBlack

'на форме Picture1(0)
Const m = 8
Dim a
Dim n%
 
Private Sub Form_Load()
n = m + m Mod 2
Picture1(0).BorderStyle = 0
For i = 1 To n * n - 1
    Load Picture1(i)
    Picture1(i).Visible = True
Next i
End Sub
 
Private Sub Form_Resize()
On Error Resume Next
With Me
.Width = .Height - 400
a = 0.98 * .Width / (n)
Call d
End With
End Sub
Sub d()
For i = 0 To n * n - 1
    Picture1(i).Move (i Mod n) * a, a * (i \ n), a, a
    Picture1(i).BackColor = (1 - (i + i \ n) Mod 2) * vbWhite
Next i
End Sub
 
Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1(Index).BorderStyle = 1
Caption = "(" & Chr((Index Mod n + 1) + 96) & " ; " & (8 - Index \ n) & ")  " & IIf(Picture1(Index).BackColor = 0, "Black", "White")
End Sub
 
Private Sub Picture1_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1(Index).BorderStyle = 0
End Sub