Begin VB.Form Form1
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Chess"
   ClientHeight    =   6000
   ClientLeft      =   45
   ClientTop       =   735
   ClientWidth     =   7095
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6000
   ScaleWidth      =   7095
   StartUpPosition =   2  'CenterScreen
   Begin Project1.oclChessboard oclChessboard1
      Height          =   4935
      Left            =   240
      TabIndex        =   5
      Top             =   240
      Width           =   4935
      _ExtentX        =   8705
      _ExtentY        =   8705
      DarkSquareColor =   8421504
      LightSquareColor=   14737632
      Locked          =   0   'False
      SideView        =   0
      HighlightMove   =   -1  'True
      HighlightMoveColor=   16711680
   End
   Begin VB.CommandButton cmdTestStalemate
      Caption         =   "Test Stalemate"
      Height          =   375
      Left            =   240
      TabIndex        =   4
      Top             =   5400
      Width           =   1335
   End
   Begin VB.ListBox lstBlackMoves
      Height          =   3960
      Left            =   6120
      TabIndex        =   3
      Top             =   240
      Width           =   735
   End
   Begin VB.ListBox lstWhiteMoves
      Height          =   3960
      Left            =   5400
      TabIndex        =   2
      Top             =   240
      Width           =   735
   End
   Begin VB.CommandButton cmdMovePiece
      Caption         =   "Move Piece"
      Height          =   375
      Left            =   4080
      TabIndex        =   1
      Top             =   5400
      Width           =   1095
   End
   Begin VB.TextBox txtMovePiece
      Height          =   375
      Left            =   3360
      TabIndex        =   0
      Text            =   "e2e4"
      Top             =   5400
      Width           =   615
   End
   Begin VB.Menu mnuGame
      Caption         =   "Game"
      Begin VB.Menu mnuGameNew
         Caption         =   "New Game"
      End
   End
   Begin VB.Menu mnuBoard
      Caption         =   "Board"
      Begin VB.Menu mnuBoardView
         Caption         =   "Reverse Board"
      End
      Begin VB.Menu mnuBoardLock
         Caption         =   "Drag-and-Drop"
      End
      Begin VB.Menu mnuBoardHighlight
         Caption         =   "Highlight Move"
      End
   End
   Begin VB.Menu mnuActions
      Caption         =   "Actions"
      Begin VB.Menu mnuActionsUndo
         Caption         =   "Undo Last Move"
      End
   End
   Begin VB.Menu mnuHelp
      Caption         =   "Help"
      Begin VB.Menu mnuHelpAbout
         Caption         =   "About"
      End
   End
   Begin VB.Menu mnuWhitePawnPromotion
      Caption         =   "WhitePawnPromotion"
      Visible         =   0   'False
      Begin VB.Menu mnuWQ
         Caption         =   "Queen"
      End
      Begin VB.Menu mnuWR
         Caption         =   "Rook"
      End
      Begin VB.Menu mnuWB
         Caption         =   "Bishop"
      End
      Begin VB.Menu mnuWN
         Caption         =   "Knight"
      End
   End
   Begin VB.Menu mnuBlackPawnPromotion
      Caption         =   "BlackPawnPromotion"
      Visible         =   0   'False
      Begin VB.Menu mnuBQ
         Caption         =   "Queen"
      End
      Begin VB.Menu mnuBR
         Caption         =   "Rook"
      End
      Begin VB.Menu mnuBB
         Caption         =   "Bishop"
      End
      Begin VB.Menu mnuBN
         Caption         =   "Knight"
      End
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private m_PromotionChoice As oclChessPieceEnum

Private Sub Form_Load()
    mnuBoardLock.Checked = Not oclChessboard1.Locked
    mnuBoardHighlight.Checked = oclChessboard1.HighlightMove
End Sub

Private Sub mnuBoardHighlight_Click()
    mnuBoardHighlight.Checked = Not mnuBoardHighlight.Checked
    oclChessboard1.HighlightMove = mnuBoardHighlight.Checked
End Sub

Private Sub mnuBoardLock_Click()
    mnuBoardLock.Checked = Not mnuBoardLock.Checked
    oclChessboard1.Locked = Not mnuBoardLock.Checked
End Sub

Private Sub mnuBoardView_Click()
    If oclChessboard1.SideView = oclChessWhite Then
        oclChessboard1.SideView = oclChessBlack
    Else
        oclChessboard1.SideView = oclChessWhite
    End If
End Sub

Private Sub oclChessboard1_KingInCheck(ByVal bWhite As Boolean, ByVal bCheckmate As Boolean)
    If bWhite Then
        If Not bCheckmate Then
            MsgBox "White king in check"
        Else
            MsgBox "White checkmated"
        End If
    Else
        If Not bCheckmate Then
            MsgBox "Black king in check"
        Else
            MsgBox "Black checkmated"
        End If
    End If
End Sub

Private Sub oclChessboard1_MoveUndo(ByVal bWhite As Boolean)
    If bWhite Then
        lstWhiteMoves.RemoveItem lstWhiteMoves.ListCount - 1
    Else
        lstBlackMoves.RemoveItem lstBlackMoves.ListCount - 1
    End If
End Sub

Private Sub oclChessboard1_PawnPromotion(ByVal bWhite As Boolean, eChoice As oclChessPieceEnum)
    If bWhite Then
        Me.PopupMenu mnuWhitePawnPromotion
    Else
        Me.PopupMenu mnuBlackPawnPromotion
    End If
    eChoice = m_PromotionChoice
    m_PromotionChoice = oclNoPiece
End Sub

Private Sub oclChessboard1_PieceCapture(ByVal ePiece As oclChessPieceEnum)
    '
End Sub

Private Sub oclChessboard1_PieceMovement(ByVal bWhite As Boolean, ByVal sFrom As String, ByVal sTo As String)
    If bWhite Then
        lstWhiteMoves.AddItem sFrom & "-" & sTo
    Else
        lstBlackMoves.AddItem sFrom & "-" & sTo
    End If
End Sub

Private Sub oclChessboard1_Stalemate()
    MsgBox "Stalemate"
End Sub

Private Sub cmdMovePiece_Click()
    If Not oclChessboard1.MovePiece(Left$(txtMovePiece.Text, 2), Right$(txtMovePiece.Text, 2)) Then
        MsgBox "Illegal move or bad syntax"
    End If
End Sub

Private Sub cmdTestStalemate_Click()
    oclChessboard1.NewGame "XXXXXXXXXXBKXXXX" & "XXXXXXWQXXXXXXXX" & "XXXXXXXXXXXXWKXX" & "XXBPXXXXXXXXBPXX" & "XXWPXXXXXXXXWPXX" & "XXXXXXXXXXXXXXXX" & "XXXXXXXXXXXXXXXX" & "XXXXXXXXXXXXXXXX", True
    lstWhiteMoves.Clear
    lstBlackMoves.Clear
End Sub

Private Sub mnuHelpAbout_Click()
    oclChessboard1.About
End Sub

Private Sub mnuActionsUndo_Click()
    oclChessboard1.UndoLastMove
End Sub

Private Sub mnuGameNew_Click()
    oclChessboard1.NewGame
    lstWhiteMoves.Clear
    lstBlackMoves.Clear
End Sub

Private Sub mnuWB_Click()
    m_PromotionChoice = oclWhiteBishop
End Sub

Private Sub mnuWN_Click()
    m_PromotionChoice = oclWhiteKnight
End Sub

Private Sub mnuWQ_Click()
    m_PromotionChoice = oclWhiteQueen
End Sub

Private Sub mnuWR_Click()
    m_PromotionChoice = oclWhiteRook
End Sub

Private Sub mnuBB_Click()
    m_PromotionChoice = oclBlackBishop
End Sub

Private Sub mnuBN_Click()
    m_PromotionChoice = oclBlackKnight
End Sub

Private Sub mnuBQ_Click()
    m_PromotionChoice = oclBlackQueen
End Sub

Private Sub mnuBR_Click()
    m_PromotionChoice = oclBlackRook
End Sub