Кликнуть по двум кнопкам и поменять их картинки друг с другом

 Sub Rubka4()
        TextBox2.Text = corr
        If (corr = 13) Then
            If (shashki(i - 2, j - 2).ImageIndex = 0 And shashki(i - 2, j + 2).ImageIndex <> 0) Then
                corr = 1
            End If
            If (shashki(i - 2, j - 2).ImageIndex <> 0 And shashki(i - 2, j + 2).ImageIndex = 0) Then
                corr = 2
            End If
            If (shashki(i - 2, j - 2).ImageIndex = 0 And shashki(i + 2, j - 2).ImageIndex = 0) Then
 
                If (TextBox3.Text = "влево") Then
                    corr = 1
                End If
                If (TextBox3.Text = "Вправо") Then
                    corr = 2
                End If
            End If
            If (shashki(i - 2, j - 2).ImageIndex <> 0 And shashki(i - 2, j + 2).ImageIndex <> 0) Then
                corr = 0
                kk = 1
            End If
        End If
        If (corr = 1) Then
            TextBox1.Text = shashki(i, j).ImageIndex
            'TextBox2.Text = shashki(i - 2, j - 2).ImageIndex
            If (shashki(i - 2, j - 2).ImageIndex = 0) Then
                shashki(i - 2, j - 2).BackgroundImage = shashki(i, j).BackgroundImage
                shashki(i - 2, j - 2).ImageIndex = shashki(i, j).ImageIndex
                shashki(i, j).ImageIndex = 0
                shashki(i, j).BackgroundImage = Button1.BackgroundImage
                shashki(i - 1, j - 1).BackgroundImage = Button1.BackgroundImage
                shashki(i - 1, j - 1).ImageIndex = 0
                Button1.TabIndex = 0
                Button1.ImageIndex = 100
                corr = 0
                i = i - 2
                j = j - 2
            Else
                corr = 0
                kk = 1
            End If
        End If
        If (corr = 3) Then
            TextBox1.Text = shashki(i, j).ImageIndex
            'TextBox2.Text = shashki(i - 2, j + 2).ImageIndex
            If (shashki(i - 2, j + 2).ImageIndex = 0) Then
                shashki(i - 2, j + 2).BackgroundImage = shashki(i, j).BackgroundImage
                shashki(i - 2, j + 2).ImageIndex = shashki(i, j).ImageIndex
                shashki(i, j).ImageIndex = 0
                shashki(i, j).BackgroundImage = Button1.BackgroundImage
                shashki(i - 1, j + 1).BackgroundImage = Button1.BackgroundImage
                shashki(i - 1, j + 1).ImageIndex = 0
                Button1.TabIndex = 0
                Button1.ImageIndex = 100
                i = i - 2
                j = j + 2
                corr = 0
            Else
                corr = 0
                kk = 1
            End If
        End If
        If (corr = 2) Then
            TextBox1.Text = shashki(i, j).ImageIndex
            TextBox2.Text = shashki(i + 2, j - 2).ImageIndex
            If (shashki(i + 2, j - 2).ImageIndex = 0) Then
                shashki(i + 2, j - 2).BackgroundImage = shashki(i, j).BackgroundImage
                shashki(i + 2, j - 2).ImageIndex = shashki(i, j).ImageIndex
                shashki(i, j).ImageIndex = 0
                shashki(i, j).BackgroundImage = Button1.BackgroundImage
                shashki(i + 1, j - 1).BackgroundImage = Button1.BackgroundImage
                shashki(i + 1, j - 1).ImageIndex = 0
                Button1.TabIndex = 0
                Button1.ImageIndex = 100
                i = i + 2
                j = j - 2
                corr = 0
            Else
                kk = 1
                corr = 0
            End If
        End If
        If (corr = 4) Then
            TextBox1.Text = shashki(i, j).ImageIndex
            TextBox2.Text = shashki(i + 2, j + 2).ImageIndex
            If (shashki(i + 2, j + 2).ImageIndex = 0) Then
                shashki(i + 2, j + 2).BackgroundImage = shashki(i, j).BackgroundImage
                shashki(i + 2, j + 2).ImageIndex = shashki(i, j).ImageIndex
                shashki(i, j).ImageIndex = 0
                shashki(i, j).BackgroundImage = Button1.BackgroundImage
                shashki(i + 1, j + 1).BackgroundImage = Button1.BackgroundImage
                shashki(i + 1, j + 1).ImageIndex = 0
                Button1.TabIndex = 0
                Button1.ImageIndex = 100
                i = i + 2
                j = j + 2
                corr = 0
            Else
                kk = 1
                corr = 0
            End If
        End If
    End Sub

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmMain 
   AutoRedraw      =   -1  'True
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Checkers V2.3"
   ClientHeight    =   8325
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   12105
   ClipControls    =   0   'False
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   555
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   807
   StartUpPosition =   2  'CenterScreen
   Begin MSComDlg.CommonDialog CD1 
      Left            =   3840
      Top             =   1680
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton cmdSave 
      Caption         =   "&Save Board"
      Height          =   375
      Left            =   120
      TabIndex        =   111
      Top             =   5640
      Width           =   1575
   End
   Begin VB.CommandButton cmdOpen 
      Caption         =   "&Load Board"
      Height          =   375
      Left            =   120
      TabIndex        =   110
      Top             =   6120
      Width           =   1575
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   300
      Left            =   0
      TabIndex        =   109
      Top             =   8025
      Width           =   12105
      _ExtentX        =   21352
      _ExtentY        =   529
      Style           =   1
      ShowTips        =   0   'False
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
      EndProperty
   End
   Begin VB.PictureBox Pictures 
      AutoSize        =   -1  'True
      Height          =   1035
      Index           =   5
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   108
      Top             =   2520
      Visible         =   0   'False
      Width           =   1035
   End
   Begin VB.PictureBox Pictures 
      AutoSize        =   -1  'True
      Height          =   1035
      Index           =   3
      Left            =   5760
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   107
      Top             =   2520
      Visible         =   0   'False
      Width           =   1035
   End
   Begin VB.PictureBox Pictures 
      AutoSize        =   -1  'True
      Height          =   1035
      Index           =   4
      Left            =   6840
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   106
      Top             =   2520
      Visible         =   0   'False
      Width           =   1035
   End
   Begin VB.PictureBox Pictures 
      AutoSize        =   -1  'True
      Height          =   1035
      Index           =   2
      Left            =   4680
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   105
      Top             =   2520
      Visible         =   0   'False
      Width           =   1035
   End
   Begin VB.PictureBox Pictures 
      AutoSize        =   -1  'True
      Height          =   1035
      Index           =   1
      Left            =   3600
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   104
      Top             =   2520
      Visible         =   0   'False
      Width           =   1035
   End
   Begin VB.CommandButton cmdBack 
      Caption         =   "&Back"
      Height          =   375
      Left            =   10320
      TabIndex        =   103
      Top             =   7440
      Width           =   1695
   End
   Begin VB.Frame Frame6 
      Caption         =   "Statistics"
      Height          =   1455
      Left            =   10320
      TabIndex        =   94
      Top             =   5400
      Width           =   1695
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "Current Moves"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   98
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "Current Depth"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   97
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label lblMMatrixSize 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   120
         TabIndex        =   96
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Label lblPlyDepth 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   120
         TabIndex        =   95
         Top             =   480
         Width           =   1455
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "Game Info"
      Height          =   2775
      Left            =   10320
      TabIndex        =   87
      Top             =   240
      Width           =   1695
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "Total Turns"
         Height          =   255
         Index           =   10
         Left            =   120
         TabIndex        =   102
         Top             =   2040
         Width           =   1455
      End
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "Total Time"
         Height          =   255
         Index           =   9
         Left            =   120
         TabIndex        =   101
         Top             =   1440
         Width           =   1455
      End
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "P2 Time"
         Height          =   255
         Index           =   8
         Left            =   120
         TabIndex        =   100
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "P1 Time"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   99
         Top             =   240
         Width           =   1455
      End
      Begin VB.Label lblTurns 
         Alignment       =   2  'Center
         Caption         =   "0"
         Height          =   255
         Left            =   120
         TabIndex        =   93
         Top             =   2280
         Width           =   1455
      End
      Begin VB.Label lblTotalTime 
         Alignment       =   2  'Center
         Caption         =   "0 Min 0 Sec"
         Height          =   255
         Left            =   120
         TabIndex        =   90
         Top             =   1680
         Width           =   1455
      End
      Begin VB.Label lblP2Time 
         Alignment       =   2  'Center
         Caption         =   "0 Min 0 Sec"
         Height          =   255
         Left            =   120
         TabIndex        =   89
         Top             =   1080
         Width           =   1455
      End
      Begin VB.Label lblP1Time 
         Alignment       =   2  'Center
         Caption         =   "0 Min 0 Sec"
         Height          =   255
         Left            =   120
         TabIndex        =   88
         Top             =   480
         Width           =   1455
      End
   End
   Begin VB.CommandButton cmdAdvanced 
      Caption         =   "&Advanced -->"
      Height          =   375
      Left            =   120
      TabIndex        =   86
      Top             =   5160
      Width           =   1575
   End
   Begin VB.Frame Frame4 
      Caption         =   "Options"
      Height          =   1455
      Left            =   120
      TabIndex        =   82
      Top             =   3600
      Width           =   1575
      Begin VB.CheckBox CheckCheat 
         Caption         =   "Cheat"
         Height          =   255
         Left            =   120
         TabIndex        =   85
         Top             =   600
         Width           =   1335
      End
      Begin VB.CheckBox CheckAutoSwitch 
         Caption         =   "Auto Switch"
         Height          =   255
         Left            =   120
         TabIndex        =   84
         Top             =   240
         Width           =   1335
      End
      Begin VB.CheckBox CheckDisErrors 
         Caption         =   "Display Errors"
         Height          =   255
         Left            =   120
         TabIndex        =   83
         Top             =   960
         Width           =   1335
      End
   End
   Begin VB.CommandButton cmdReset 
      Caption         =   "&Start"
      Height          =   375
      Left            =   120
      TabIndex        =   79
      Top             =   240
      Width           =   1575
   End
   Begin VB.Frame Frame2 
      Caption         =   "Points"
      Height          =   975
      Left            =   120
      TabIndex        =   76
      Top             =   1440
      Width           =   1575
      Begin VB.Label lblP2Points 
         Alignment       =   2  'Center
         Height          =   255
         Left            =   120
         TabIndex        =   78
         Top             =   600
         Width           =   1335
      End
      Begin VB.Label lblP1Points 
         Alignment       =   2  'Center
         Height          =   255
         Left            =   120
         TabIndex        =   77
         Top             =   240
         Width           =   1335
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Gameplay Type"
      Height          =   975
      Left            =   120
      TabIndex        =   73
      Top             =   2520
      Width           =   1575
      Begin VB.OptionButton Option1 
         Caption         =   "1 Player"
         Height          =   255
         Left            =   120
         TabIndex        =   75
         Top             =   240
         Value           =   -1  'True
         Width           =   975
      End
      Begin VB.OptionButton Option2 
         Caption         =   "2 Player"
         Height          =   255
         Left            =   120
         TabIndex        =   74
         Top             =   600
         Width           =   975
      End
   End
   Begin VB.CommandButton cmdSwitch 
      Caption         =   "Skip &Go"
      Height          =   375
      Left            =   120
      TabIndex        =   72
      Top             =   6600
      Width           =   1575
   End
   Begin VB.CommandButton cmdReverse 
      Caption         =   "&Reverse Board"
      Enabled         =   0   'False
      Height          =   375
      Left            =   120
      TabIndex        =   71
      Top             =   7080
      Width           =   1575
   End
   Begin VB.CommandButton cmdName 
      Caption         =   "&Name Players"
      Height          =   375
      Left            =   10320
      TabIndex        =   70
      Top             =   6960
      Width           =   1695
   End
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "E&xit"
      Height          =   375
      Left            =   120
      TabIndex        =   69
      Top             =   7560
      Width           =   1575
   End
   Begin VB.Frame Frame3 
      Caption         =   "Advanced Options"
      Height          =   2175
      Left            =   10320
      TabIndex        =   64
      Top             =   3120
      Width           =   1695
      Begin VB.TextBox txtMaxTime 
         Alignment       =   2  'Center
         BackColor       =   &H8000000F&
         BorderStyle     =   0  'None
         Height          =   285
         Left            =   240
         TabIndex        =   92
         ToolTipText     =   "Click to change"
         Top             =   1680
         Width           =   1215
      End
      Begin VB.TextBox txtError 
         Alignment       =   2  'Center
         BackColor       =   &H8000000F&
         BorderStyle     =   0  'None
         Height          =   285
         Left            =   120
         TabIndex        =   68
         ToolTipText     =   "Click to change"
         Top             =   1080
         Width           =   1455
      End
      Begin VB.TextBox txtDepth 
         Alignment       =   2  'Center
         BackColor       =   &H8000000F&
         BorderStyle     =   0  'None
         Height          =   285
         Left            =   240
         TabIndex        =   65
         ToolTipText     =   "Click to change"
         Top             =   480
         Width           =   1215
      End
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "Max Think Time"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   91
         Top             =   1440
         Width           =   1455
      End
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "Array Error Size (%)"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   67
         Top             =   840
         Width           =   1455
      End
      Begin VB.Label Labels 
         Alignment       =   2  'Center
         Caption         =   "Max Ply Depth"
         Height          =   255
         Index           =   1
         Left            =   240
         TabIndex        =   66
         Top             =   240
         Width           =   1215
      End
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   63
      Left            =   8880
      ScaleHeight     =   65
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   65
      TabIndex        =   63
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   62
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   62
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   61
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   61
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   60
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   60
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   59
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   59
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   58
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   58
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   57
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   57
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   56
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   56
      Top             =   6960
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   55
      Left            =   8880
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   55
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   54
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   54
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   53
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   53
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   52
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   52
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   51
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   51
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   50
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   50
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   49
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   49
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   48
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   48
      Top             =   6000
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   47
      Left            =   8880
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   47
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   46
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   46
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   45
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   45
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   44
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   44
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   43
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   43
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   42
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   42
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   41
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   41
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   40
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   40
      Top             =   5040
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   39
      Left            =   8880
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   39
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   38
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   38
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   37
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   37
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   36
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   36
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   35
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   35
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   34
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   34
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   33
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   33
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   32
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   32
      Top             =   4080
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   31
      Left            =   8880
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   31
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   30
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   30
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   29
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   29
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   28
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   28
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   27
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   27
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   26
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   26
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   25
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   25
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   24
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   24
      Top             =   3120
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   23
      Left            =   8880
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   23
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   22
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   22
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   21
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   21
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   20
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   20
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   19
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   19
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   18
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   18
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   17
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   17
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   16
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   16
      Top             =   2160
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   15
      Left            =   8880
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   15
      Top             =   1200
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   14
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   14
      Top             =   1200
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   13
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   13
      Top             =   1200
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   12
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   12
      Top             =   1200
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   11
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   11
      Top             =   1200
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   10
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   10
      Top             =   1200
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   9
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   9
      Top             =   1200
      Width           =   975
      Begin VB.Timer Timer1 
         Interval        =   100
         Left            =   120
         Top             =   480
      End
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   8
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   8
      Top             =   1200
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   7
      Left            =   8880
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   7
      Top             =   240
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   6
      Left            =   7920
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   6
      Top             =   240
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   5
      Left            =   6960
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   5
      Top             =   240
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   4
      Left            =   6000
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   4
      Top             =   240
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   3
      Left            =   5040
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   3
      Top             =   240
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   2
      Left            =   4080
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   2
      Top             =   240
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000009&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   1
      Left            =   3120
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   1
      Top             =   240
      Width           =   975
   End
   Begin VB.PictureBox Shape1 
      BackColor       =   &H80000007&
      BorderStyle     =   0  'None
      Height          =   975
      Index           =   0
      Left            =   2160
      ScaleHeight     =   975
      ScaleWidth      =   975
      TabIndex        =   0
      Top             =   240
      Width           =   975
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      Index           =   1
      X1              =   672
      X2              =   672
      Y1              =   16
      Y2              =   528
   End
   Begin VB.Label Labels 
      Alignment       =   2  'Center
      Caption         =   "Player Turn:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   81
      Top             =   840
      Width           =   1575
   End
   Begin VB.Label lblTurn 
      Alignment       =   2  'Center
      Height          =   255
      Left            =   120
      TabIndex        =   80
      Top             =   1080
      Width           =   1575
   End
   Begin VB.Line Line1 
      BorderWidth     =   2
      Index           =   0
      X1              =   128
      X2              =   128
      Y1              =   16
      Y2              =   528
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
 
Private Sub CheckAutoSwitch_Click()
  AutoSwitch = CheckAutoSwitch
  If AutoSwitch = 1 Then cmdReverse.Enabled = False Else cmdReverse.Enabled = True
  Select Case Turn
    Case 1
      If Reversed = True Then Reversed = False: RefreshBoard Currentpieces
    Case 2
      If Reversed = False Then Reversed = True: RefreshBoard Currentpieces
  End Select
  
  General.SaveSettings
End Sub
 
Private Sub CheckAutoSwitch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Automatically switches board orientation to current players side (only in 2 player mode)"
End Sub
 
Private Sub CheckCheat_Click()
  CheatSwitch = CheckCheat
  General.SaveSettings
End Sub
 
Private Sub CheckCheat_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Used as debug, allow you to move any piece anywhere, moving a piece onto another deletes the original piece"
End Sub
 
Private Sub CheckDisErrors_Click()
  Select Case CheckDisErrors
    Case 0
      DisplayErrors = 0
    Case 1
      DisplayErrors = 1
  End Select
End Sub
 
Private Sub CheckDisErrors_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Select to show all errors which occur in the game, deselect to ignore them"
End Sub
 
Private Sub cmdAdvanced_Click()
 
  If IsAdvanced = 0 Then
    frmMain.Width = 12240
    cmdAdvanced.Caption = "&Advanced <--"
    IsAdvanced = 1
  Else
    frmMain.Width = 10125
    cmdAdvanced.Caption = "&Advanced -->"
    IsAdvanced = 0
  End If
  
  General.SaveSettings
End Sub
 
Private Sub cmdAdvanced_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to toggle advanced controls panel"
End Sub
 
Private Sub cmdBack_Click()
Dim Lng1 As Long
For Lng1 = 1 To 16
  Currentpieces(Lng1) = Lastpieces(Lng1)
Next
  RefreshBoard Currentpieces
End Sub
 
Private Sub cmdBack_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to revert back to board state before last move"
End Sub
 
Private Sub cmdExit_Click()
  Unload Me
  End
End Sub
 
Private Sub cmdExit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to exit game"
End Sub
 
Private Sub cmdName_Click()
Dim Response As String
 
Response = InputBox("Enter Player 1 Name", "Player 1", Names(1))
If Response <> "" Then Names(1) = Response Else Exit Sub
 
Response = InputBox("Enter Player 2 Name", "Player 2", Names(2))
If Response <> "" Then Names(2) = Response Else Exit Sub
 
General.SaveSettings
General.RefreshDisplay
 
End Sub
 
Private Sub cmdName_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to name players"
End Sub
 
Private Sub cmdOpen_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to load a saved game"
End Sub
 
Private Sub cmdReset_Click()
  Call General.ResetGame
End Sub
 
Private Sub cmdReset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Starts a new game"
End Sub
 
Private Sub cmdReverse_Click()
  Reversed = Not Reversed
  Call RefreshBoard(Currentpieces)
End Sub
 
Private Sub cmdReverse_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Reverses board orientation"
End Sub
 
Private Sub cmdOpen_Click()
Dim File As String, Response As Long, Buffer As String
  If GameStarted Then
    Response = MsgBox("Erase current game?", vbExclamation + vbYesNo)
    If Response = vbNo Then Exit Sub
  End If
  
  CD1.DialogTitle = "Load Board"
  CD1.Filter = "Board File (*.brd)|*.brd"
  CD1.Flags = cdlOFNHideReadOnly
  CD1.InitDir = CurDir
  CD1.FileName = ""
  CD1.ShowOpen
  File = CD1.FileName
  If File = "" Then Exit Sub
  
  If Dir(File, vbHidden Or vbSystem Or vbNormal Or vbReadOnly) = "" Then
    MsgBox CD1.FileTitle & " does not exist", vbExclamation
    Exit Sub
  End If
  
  Open File For Binary Access Read As #1
    Get #1, , Currentpieces
    Get #1, , Turn
    Get #1, , Option1
  Close #1
  
  General.RefreshDisplay
  General.RefreshBoard Currentpieces
  
End Sub
 
Private Sub cmdSave_Click()
Dim File As String, Response As Long, Buffer As String
 
  CD1.DialogTitle = "Save Board"
  CD1.Filter = "Board File (*.brd)|*.brd"
  CD1.Flags = cdlOFNHideReadOnly
  CD1.InitDir = CurDir
  CD1.FileName = ""
  CD1.ShowSave
  File = CD1.FileName
  If File = "" Then Exit Sub
  If Dir(File, vbHidden Or vbSystem Or vbNormal Or vbReadOnly) <> "" Then
    Response = MsgBox(CD1.FileTitle & " already exists, overwrite?", vbExclamation + vbYesNo)
    If Response = vbNo Then Exit Sub
  End If
  
  Open File For Binary As #1
    Put #1, , Currentpieces
    Put #1, , Turn
    Put #1, , CBool(Option1)
  Close #1
  
End Sub
 
Private Sub cmdSave_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to save the current game"
End Sub
 
Private Sub cmdSwitch_Click()
  Select Case Turn
    Case 1
      Turn = 2
      If Option1 = True Then Call AIMove(2)
    Case 2
      Turn = 1
  End Select
  RefreshDisplay
End Sub
 
Private Sub cmdSwitch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to skip the current players go"
End Sub
 
Private Sub Form_Load()
  
  Pictures(1).Picture = LoadPicture(App.Path & "\Art\Red.bmp")
  Pictures(2).Picture = LoadPicture(App.Path & "\Art\DRed.bmp")
  Pictures(3).Picture = LoadPicture(App.Path & "\Art\Blue.bmp")
  Pictures(4).Picture = LoadPicture(App.Path & "\Art\DBlue.bmp")
  Pictures(5).Picture = LoadPicture(App.Path & "\Art\Yellow.bmp")
  
  IndexMoves(1) = -7
  IndexMoves(2) = 9
  IndexMoves(3) = 7
  IndexMoves(4) = -9
  IndexMoves(5) = -14
  IndexMoves(6) = 18
  IndexMoves(7) = 14
  IndexMoves(8) = -18
  
  XYMoves(1).X = 1
  XYMoves(2).X = 1
  XYMoves(3).X = -1
  XYMoves(4).X = -1
  XYMoves(5).X = 2
  XYMoves(6).X = 2
  XYMoves(7).X = -2
  XYMoves(8).X = -2
  
  XYMoves(1).Y = -1
  XYMoves(2).Y = 1
  XYMoves(3).Y = 1
  XYMoves(4).Y = -1
  XYMoves(5).Y = -2
  XYMoves(6).Y = 2
  XYMoves(7).Y = 2
  XYMoves(8).Y = -2
  
  ReDim SMatrix(0 To 0)
  ReDim MoveMatrix(0 To 0)
 
  General.GetSettings
  
  If Names(1) = "" Then
    Names(1) = "Player 1"
    Names(2) = "Player 2"
    MaxDepth = 5
    txtDepth = "5"
    ErrorMargin = 25
    txtError = "25%"
    General.SaveSettings
  End If
  
  If IsAdvanced = 1 Then frmMain.Width = 12240: cmdAdvanced.Caption = "&Advanced <--" Else frmMain.Width = 10150: cmdAdvanced.Caption = "&Advanced -->"
  CheckAutoSwitch = AutoSwitch
  CheckCheat = CheatSwitch
  CheckDisErrors = DisplayErrors
  txtDepth = MaxDepth
  txtError = ErrorMargin
  txtMaxTime = MaxThoughtTime & " Sec"
  
  General.ResetGame
  General.RefreshDisplay
  
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = ""
End Sub
 
Private Sub lblMMatrixSize_Click()
  StatusBar1.SimpleText = "Displays the amount of moves the AI engine has generated so far"
End Sub
 
Private Sub lblP1Time_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Displays time taken for " & Names(1) & " this game"
End Sub
 
Private Sub lblP2Time_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Displays time taken for " & Names(2) & " this game"
End Sub
 
Private Sub lblPlyDepth_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Displays current depth that the AI engine is thinking at"
End Sub
 
Private Sub lblTotalTime_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Displays total time taken for this game"
End Sub
 
Private Sub lblTurns_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Displays number of turns this game"
End Sub
 
Private Sub Option1_Click()
  If Turn = 2 Then Call AIMove(2)
  cmdReverse.Enabled = False
End Sub
 
Private Sub Option2_Click()
  cmdReverse.Enabled = True
End Sub
 
Private Sub Shape1_Click(Index As Integer)
Static Selected As Boolean, SelectedPiece As SelectedSquare, RealIndex As Long
 
RealIndex = General.IndexTranslation(Val(Index))
 
If Selected = True Then
  If SelectedPiece.Index = RealIndex Then GoTo Deselect
  GameStarted = True
  If MovePiece(Val(SelectedPiece.Index), RealIndex, 0, False) Then Selected = False
  If P1MultiMode Then SelectedPiece = CheckSquare(Currentpieces, , , Currentpieces(SelectedPiece.Piece).Index)
Else
  SelectedPiece = CheckSquare(Currentpieces, , , Val(RealIndex))
  If SelectedPiece.IsPiece And (Turn = SelectedPiece.Player Or CheatSwitch = 1) Then
    Shape1(Index).Picture = Pictures(5).Picture
    Selected = True
  End If
End If
 
Exit Sub
 
Deselect:
 
If SelectedPiece.Player = 1 Then
  If SelectedPiece.Double Then
    Shape1(Index).Picture = Pictures(2).Picture
  Else
    Shape1(Index).Picture = Pictures(1).Picture
  End If
Else
  If SelectedPiece.Double Then
    Shape1(Index).Picture = Pictures(4).Picture
  Else
    Shape1(Index).Picture = Pictures(3).Picture
  End If
End If
 
Selected = False
 
If P1MultiMode Then
  P1MultiMode = False
  If Turn = 1 Then
    Turn = 2
    If CheckWin(Currentpieces) = True Then
      RefreshDisplay
    Else
      RefreshDisplay
    End If
    DoEvents
    If frmMain.Option1 And CheatSwitch = 0 Then Call AIMove(CByte(Turn))
    If frmMain.Option2 And frmMain.CheckAutoSwitch Then Sleep 600: Reversed = True: RefreshBoard Currentpieces  ' Switch board
  Else
    Turn = 1
    If CheckWin(Currentpieces) = True Then
      RefreshDisplay
    Else
      RefreshDisplay
    End If
    DoEvents
    If frmMain.Option2 And frmMain.CheckAutoSwitch Then Sleep 500: Reversed = False: RefreshBoard Currentpieces  ' Switch board
  End If
End If
 
End Sub
 
Private Sub Shape1_DblClick(Index As Integer)
Dim TempSquare As SelectedSquare, Msg As String
 
TempSquare = CheckSquare(Currentpieces, , , IndexTranslation(Val(Index)))
 
Msg = "X = " & TempSquare.X & vbCrLf & _
"Y = " & TempSquare.Y & vbCrLf & _
"Index = " & TempSquare.Index & vbCrLf & _
"Double = " & TempSquare.Double & vbCrLf & _
"IsPiece = " & TempSquare.IsPiece & vbCrLf & _
"IsSquare = " & TempSquare.IsSquare & vbCrLf & _
"Piece Number = " & TempSquare.Piece & vbCrLf & _
"Player = " & TempSquare.Player & vbCrLf
 
MsgBox Msg, vbExclamation, "Shape(" & Index & ") info"
End Sub
 
Private Sub Shape1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = ""
End Sub
 
Private Sub Timer1_Timer()
 
  If GameStarted = False Then Exit Sub
  Select Case Turn
    Case 1
      VP1Time.Seconds = VP1Time.Seconds + 0.1
      If VP1Time.Seconds >= 60 Then VP1Time.Minutes = VP1Time.Minutes + Int(VP1Time.Seconds / 60): VP1Time.Seconds = VP2Time.Seconds - (Int(VP2Time.Seconds / 60) * 60)
      If InStr(1, CStr(Round(VP1Time.Seconds, 1)), ".", vbBinaryCompare) = 0 Then
        lblP1Time = VP1Time.Minutes & " Min " & Round(VP1Time.Seconds, 1) & ".0 Sec"
      Else
        lblP1Time = VP1Time.Minutes & " Min " & Round(VP1Time.Seconds, 1) & " Sec"
      End If
    Case 2
      If Option1 = True Then Exit Sub
      VP2Time.Seconds = VP2Time.Seconds + 0.1
      If VP2Time.Seconds >= 60 Then VP2Time.Minutes = VP2Time.Minutes + Int(VP2Time.Seconds / 60): VP2Time.Seconds = VP2Time.Seconds - (Int(VP2Time.Seconds / 60) * 60)
      If InStr(1, CStr(Round(VP2Time.Seconds, 1)), ".", vbBinaryCompare) = 0 Then
        lblP2Time = VP2Time.Minutes & " Min " & Round(VP2Time.Seconds, 1) & ".0 Sec"
      Else
        lblP2Time = VP2Time.Minutes & " Min " & Round(VP2Time.Seconds, 1) & " Sec"
      End If
  End Select
  
  TotalTime.Seconds = VP2Time.Seconds + VP1Time.Seconds
  TotalTime.Minutes = VP2Time.Minutes + VP2Time.Minutes
  If TotalTime.Seconds >= 60 Then TotalTime.Minutes = TotalTime.Minutes + Int(TotalTime.Seconds / 60): TotalTime.Seconds = TotalTime.Seconds - (Int(TotalTime.Seconds / 60) * 60)
  If InStr(1, CStr(Round(TotalTime.Seconds, 1)), ".", vbBinaryCompare) = 0 Then
    lblTotalTime = TotalTime.Minutes & " Min " & Round(TotalTime.Seconds, 1) & ".0 Sec"
  Else
    lblTotalTime = TotalTime.Minutes & " Min " & Round(TotalTime.Seconds, 1) & " Sec"
  End If
  
End Sub
 
Private Sub txtDepth_Click()
  txtDepth.Alignment = 0
  txtDepth.BackColor = &H8000000E
  txtDepth.BorderStyle = 1
  txtDepth.SelStart = 0
  txtDepth.SelLength = Len(txtDepth)
End Sub
 
Private Sub txtDepth_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Call txtDepth_LostFocus: cmdReset.SetFocus
End Sub
 
Private Sub txtDepth_LostFocus()
  txtDepth.Alignment = 2
  txtDepth.BackColor = &H8000000F
  txtDepth.BorderStyle = 0
  If IsNumeric(txtDepth) Then
    MaxDepth = txtDepth
    General.SaveSettings
  Else
    MsgBox "The Maximum Ply Depth must be numeric!", vbExclamation
    txtDepth = MaxDepth
    txtDepth.SelStart = 0
    txtDepth.SelLength = Len(txtDepth)
  End If
End Sub
 
Private Sub txtDepth_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to change maximum ply depth"
End Sub
 
Private Sub txtError_Click()
  txtError.Alignment = 0
  txtError.BackColor = &H8000000E
  txtError.BorderStyle = 1
  txtError.SelStart = 0
  txtError.SelLength = Len(txtError)
End Sub
 
Private Sub txtError_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Call txtError_LostFocus: cmdReset.SetFocus
End Sub
 
Private Sub txtError_LostFocus()
  txtError.Alignment = 2
  txtError.BackColor = &H8000000F
  txtError.BorderStyle = 0
  If IsNumeric(txtError) Then
    ErrorMargin = txtError
    General.SaveSettings
  Else
    MsgBox "The Array Upper Bound Error Margin must be numeric", vbExclamation
    txtError = ErrorMargin
    txtError.SelStart = 0
    txtError.SelLength = Len(txtError)
  End If
End Sub
 
Private Sub txtError_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to change array error margin"
End Sub
 
Private Sub txtMaxTime_Click()
  txtMaxTime = Left(txtMaxTime, Len(txtMaxTime) - 4)
  txtMaxTime.Alignment = 0
  txtMaxTime.BackColor = &H8000000E
  txtMaxTime.BorderStyle = 1
  txtMaxTime.SelStart = 0
  txtMaxTime.SelLength = Len(txtMaxTime)
End Sub
 
Private Sub txtMaxTime_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then cmdReset.SetFocus
End Sub
 
Private Sub txtMaxTime_LostFocus()
  txtMaxTime.Alignment = 2
  txtMaxTime.BackColor = &H8000000F
  txtMaxTime.BorderStyle = 0
  If IsNumeric(txtMaxTime) Then
    MaxThoughtTime = txtMaxTime
    General.SaveSettings
  Else
    MsgBox "The Array Upper Bound Error Margin must be numeric", vbExclamation
    txtMaxTime = ErrorMargin
    txtMaxTime.SelStart = 0
    txtMaxTime.SelLength = Len(txtMaxTime)
  End If
  txtMaxTime = txtMaxTime & " Sec"
End Sub
 
Private Sub txtMaxTime_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  StatusBar1.SimpleText = "Click to set maximum tinking time for the computer player"
End Sub

  Sub Letgo4(ByRef Button28 As Button, ByRef Button1 As Button, ByRef Button18 As Button, ByRef _
             Button20 As Button, ByRef Button34 As Button, ByRef Button36 As Button, ByRef corr As Integer)
 
        If (Button28.ImageIndex = 0) Then
            If (Button1.TabIndex = Button18.TabIndex And (Button1.ImageIndex = 1 Or Button1.ImageIndex = 3 Or Button1.ImageIndex = 4) And (corr = 0 Or corr = 1)) Then
                Letgo(Button18, Button28, Button1)
            End If
            '////////////////////////////////////////////////////////////////////////'
            If (Button1.TabIndex = Button20.TabIndex And (Button1.ImageIndex = 1 Or Button1.ImageIndex = 3 Or Button1.ImageIndex = 4) And (corr = 0 Or corr = 2)) Then
                Letgo(Button20, Button28, Button1)
            End If
            '////////////////////////////////////////////////////////////////////////'
            If (Button1.TabIndex = Button34.TabIndex And (Button1.ImageIndex = 2 Or Button1.ImageIndex = 3 Or Button1.ImageIndex = 4) And (corr = 0 Or corr = 3)) Then
                If (corr = 0) Then
                    Letgo(Button34, Button28, Button1)
                End If
            End If
            '////////////////////////////////////////////////////////////////////////'
            If (Button1.TabIndex = Button36.TabIndex And (Button1.ImageIndex = 2 Or Button1.ImageIndex = 3 Or Button1.ImageIndex = 4) And (corr = 0 Or corr = 4)) Then
                Letgo(Button36, Button28, Button1)
            End If
            '////////////////////////////////////////////////////////////////////////'
        Else
            Button1.TabIndex = Button28.TabIndex
            Button1.ImageIndex = Button28.ImageIndex
        End If
 
    End Sub
 
'///////////////////////////////////////////////////////////////////////////////////////////////////////////'
Sub Letgo(ByRef Button18 As Button, ByRef Button26 As Button, ByRef Button1 As Button)
        Button26.BackgroundImage = Button18.BackgroundImage
        Button26.ImageIndex = Button18.ImageIndex
        Button18.ImageIndex = 0
        Button18.BackgroundImage = Button1.BackgroundImage
        Button1.TabIndex = 0
        Button1.ImageIndex = 100
    End Sub

   If (shashki(i - 2, j - 2).ImageIndex = 0 And shashki(i + 2, j - 2).ImageIndex = 0) Then
                While ((xod <> "Вправо") And (xod <> "Влево"))
                    xod = InputBox("Куда пойти влево или вправо? Чтобы пойти влево - напишите 'Влево', если вправо - то 'Вправо'", "Выбор хода")
                End While
                If (xod = "Влево") Then
                    corr = 1
                    xod = ""
                End If
                If (xod = "Вправо") Then
                    xod = ""
                    corr = 2
                End If
            End If

Sub Command1_Click()
шо хотим.........
End Sub

Dim X As Long, Y As Long, zv1 As Long, zv2 As Long
Dim a As Integer, b As Integer, c As Integer, d As Integer
Dim kolV As Integer, kolG As Integer, kNOP() As Integer, kxKNOP As Integer, kyKNOP As Integer
Dim zapX, zapY
Private Sub RISOVANIE()
Cls
ReDim kNOP(kolG, kolGV)
 For c = 1 To kolG Step 1
   CurrentY = b - 300: CurrentX = a * c + a / 6: Print c
   For d = 1 To kolV Step 1
       X = a * c
       Y = b * d
       CurrentY = b * d: CurrentX = a - 400: Print d
       If (c + d) Mod 2 = 0 Then Line (X, Y)-(X + a, Y + b), zv1, BF Else Line (X, Y)-(X + a, Y + b), zv2, BF
       CurrentY = b * d: CurrentX = a * kolG + a: Print d
    Next d
    CurrentX = a * c + a / 6: CurrentY = b * d: Print c
 Next c
End Sub
Private Sub Form_Load()
  AutoRedraw = True
  Me.Font = Bold: Me.Font.Size = 12: ScaleMode = 1: Me.Height = 6500: Me.Width = 6500
  a = 600: b = 600: kolV = 8: kolG = 8 ' Размер и количество клеток
  zv1 = vbWhite: zv2 = vbBlack 'Цвет клеток
  RISOVANIE
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    kxKNOP = (X + a / 2) / a - 1: kyKNOP = (Y + b / 2) / b - 1
    If kyKNOP <= kolV And kxKNOP <= kolG And kyKNOP <> 0 And kxKNOP <> 0 Then
       Label2.Caption = "Клетка" & Str(kyKNOP) & "-" & Str(kxKNOP)
    End If
End Sub
Private Sub label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
    Label1.Left = Label1.Left + X - Label1.Width / 2
    Label1.Top = Label1.Top + Y - Label1.Height / 2
    kxKNOP = (Label1.Left - Label1.Width / 2 + a / 2) / a: kyKNOP = (Label1.Top - Label1.Height / 2 + b / 2) / b
    Label2.Caption = "Клетка" & Str(kyKNOP) & "-" & Str(kxKNOP)
End Sub
Private Sub label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1.Drag vbBeginDrag
    zapX = Label1.Left: zapY = Label1.Top
End Sub
Private Sub Label1_DragDrop(Source As Control, X As Single, Y As Single)
    If (kxKNOP + kyKNOP) Mod 2 <> 1 Then Label2.Caption = "": Label1.Left = zapX: Label1.Top = zapY
End Sub