Приложение исходный код программы

Приложение исходный код программы. Dim Col As String Dim Down, Right, Vert, Gor, A As Integer Private Sub ComNewClick Col vbBlack For Index 0 To 63 Command1.ItemIndex. BackColor vbYellow Command1.ItemIndex. Enabled True Next Index Command1.Item27.BackColor vbWhite Command1.Item28.BackColor vbBlack Command1.Item35.BackColor vbBlack Command1.Item36.BackColor vbWhite Command1.Item27.Enabled False Command1.Item28.Enabled False Command1.Item35.Enabled False Command1.Item36.Enabled False Text1.Text 2 Text2.Text 2 End Sub Private Sub Command1ClickIndex As Integer If Col vbBlack Then Col vbWhite Else Col vbBlack End If Command1.ItemIndex. BackColor Col Command1.ItemIndex. Enabled False Vert Index 8 1 Gor 9 - 7 Vert - Index - Vert Down 8 - Vert Right 8 - Gor White 0 Black 0 For A Down To 1 Step -1 If Command1.ItemIndex 8 A.BackColor Col Then If Command1.ItemIndex 8 A - 1.Enabled False Then Command1.ItemIndex 8 A - 1.BackColor Col Else End If End If Next A For A Vert - 1 To 1 Step -1 If Command1.ItemIndex - 8 A.BackColor Col Then If Command1.ItemIndex - 8 A - 1.Enabled False Then Command1.ItemIndex - 8 A - 1.BackColor Col End If End If Next A For A Right To 1 Step -1 If Command1.ItemIndex A.BackColor Col Then If Command1.ItemIndex A - 1.Enabled False Then Command1.ItemIndex A - 1.BackColor Col End If End If Next A For A Gor - 1 To 1 Step -1 If Command1.ItemIndex - A.BackColor Col Then If Command1.ItemIndex - A 1.Enabled False Then Command1.ItemIndex - A 1.BackColor Col End If End If Next A For A Down To 1 Step -1 If Command1.ItemIndex 7 A.BackColor Col Then If Command1.ItemIndex 7 A - 1.Enabled False Then Command1.ItemIndex 7 A - 1.BackColor Col Else End If End If Next A For A Vert - 1 To 1 Step -1 If Command1.ItemIndex - 7 A.BackColor Col Then If Command1.ItemIndex - 7 A - 1.Enabled False Then Command1.ItemIndex - 7 A - 1.BackColor Col End If End If Next A For A Down - 1 To 1 Step -1 If Command1.ItemIndex 9 A.BackColor Col Then If Command1.ItemIndex 9 A - 1.Enabled False Then Command1.ItemIndex 9 A - 1.BackColor Col Else End If End If Next A For A Vert - 2 To 1 Step -1 If Command1.ItemIndex - 9 A.BackColor Col Then If Command1.ItemIndex - 9 A - 1.Enabled False Then Command1.ItemIndex - 9 A - 1.BackColor Col End If End If Next A For Index 0 To 63 Select Case Command1.ItemIndex. BackColor Case Is vbWhite White White 1 Case Is vbBlack Black Black 1 End Select Text1.Text White Text2.Text Black Next Index A 0 For Index 0 To 63 If Command1.ItemIndex. Enabled False Then A A 1 End If Next Index If A 64 Then приглашение Игра закончена. Начните снова If White Black Then сообщение Белые выиграли Else If White Black Then сообщение Чрные выиграли Else сообщение Ничья End If End If MsgBox сообщение, vbExclamation, приглашение End If End Sub Private Sub ComEndClick End End Sub.