API tools faq
paste
Advertisement
rohits134

Chess

rohits134
Jun 26th, 2012
667
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 351.40 KB | None | 0 0
raw download clone embed print report
  1. Public Class Chess
  2.     Dim count As Integer
  3.     Dim piece As String
  4.     Dim PieceToBeMoved As String
  5.     Dim square As String 'to specify from which square a piece is being moved. This will help update the position array.
  6.     Dim Position = {{"whrook", "whknight", "whbishop", "whqueen", "whking", "whbishop", "whknight", "whrook"},
  7.                     {"whpawn", "whpawn", "whpawn", "whpawn", "whpawn", "whpawn", "whpawn", "whpawn"},
  8.                     {"0", "0", "0", "0", "0", "0", "0", "0"},
  9.                     {"0", "0", "0", "0", "0", "0", "0", "0"},
  10.                     {"0", "0", "0", "0", "0", "0", "0", "0"},
  11.                     {"0", "0", "0", "0", "0", "0", "0", "0"},
  12.                     {"blpawn", "blpawn", "blpawn", "blpawn", "blpawn", "blpawn", "blpawn", "blpawn"},
  13.                     {"blrook", "blknight", "blbishop", "blqueen", "blking", "blbishop", "blknight", "blrook"}}
  14.  
  15.     Private Function CheckPiece(ByVal x As Integer, ByVal y As Integer) As String
  16.         Return Position(x, y)
  17.     End Function
  18.  
  19.     Private Function CheckEnemy(ByVal colour As String, ByVal x As Integer, ByVal y As Integer) As Boolean
  20.         If colour = "white" Then
  21.             If CheckPiece(x, y) = "blking" Or CheckPiece(x, y) = "blqueen" Or CheckPiece(x, y) = "blknight" Or CheckPiece(x, y) = "blbishop" Or CheckPiece(x, y) = "blrook" Or CheckPiece(x, y) = "blpawn" Then
  22.                 Return True
  23.             Else
  24.                 Return False
  25.             End If
  26.         Else
  27.             If CheckPiece(x, y) = "whking" Or CheckPiece(x, y) = "whqueen" Or CheckPiece(x, y) = "whknight" Or CheckPiece(x, y) = "whbishop" Or CheckPiece(x, y) = "whrook" Or CheckPiece(x, y) = "whpawn" Then
  28.                 Return True
  29.             Else
  30.                 Return False
  31.             End If
  32.         End If
  33.     End Function
  34.  
  35.     Private Sub OriginalColour()
  36.         For Each ctrl As Control In Me.Controls
  37.             If TypeOf ctrl Is PictureBox Then
  38.                 If ctrl.Name Is "pba1" Or ctrl.Name Is "pba3" Or ctrl.Name Is "pba5" Or ctrl.Name Is "pba7" Or ctrl.Name Is "pbb2" Or ctrl.Name Is "pbb4" Or ctrl.Name Is "pbb6" Or ctrl.Name Is "pbb8" Or ctrl.Name Is "pbc1" Or ctrl.Name Is "pbc3" Or ctrl.Name Is "pbc5" Or ctrl.Name Is "pbc7" Or ctrl.Name Is "pbd2" Or ctrl.Name Is "pbd4" Or ctrl.Name Is "pbd6" Or ctrl.Name Is "pbd8" Or ctrl.Name Is "pbe1" Or ctrl.Name Is "pbe3" Or ctrl.Name Is "pbe5" Or ctrl.Name Is "pbe7" Or ctrl.Name Is "pbf2" Or ctrl.Name Is "pbf4" Or ctrl.Name Is "pbf6" Or ctrl.Name Is "pbf8" Or ctrl.Name Is "pbg1" Or ctrl.Name Is "pbg3" Or ctrl.Name Is "pbg5" Or ctrl.Name Is "pbg7" Or ctrl.Name Is "pbh2" Or ctrl.Name Is "pbh4" Or ctrl.Name Is "pbh6" Or ctrl.Name Is "pbh8" Then
  39.                     ctrl.BackColor = Color.Gray
  40.                 Else
  41.                     ctrl.BackColor = Color.White
  42.                 End If
  43.             End If
  44.         Next
  45.     End Sub
  46.  
  47.     Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
  48.         End
  49.     End Sub
  50.  
  51.     Private Sub pba1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba1.Click
  52.         piece = CheckPiece(0, 0)
  53.         If pba1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  54.             If PieceToBeMoved = "whpawn" Then
  55.                 pba1.Image = Image.FromFile("whitepawn.cur")
  56.             ElseIf PieceToBeMoved = "blpawn" Then
  57.                 pba1.Image = Image.FromFile("blackqueen.cur")
  58.                 Call OriginalColour()
  59.                 Select Case square
  60.                     Case "a2"
  61.                         pba2.Image = Nothing
  62.                         Position(1, 0) = "0"
  63.                     Case "b2"
  64.                         pbb2.Image = Nothing
  65.                         Position(1, 1) = "0"
  66.                 End Select
  67.             ElseIf PieceToBeMoved = "whrook" Then
  68.                 pba1.Image = Image.FromFile("whiterook.cur")
  69.                 Position(0, 0) = "whrook"
  70.                 Select Case square
  71.                     Case "a2"
  72.                         Position(1, 0) = "0"
  73.                         pba2.Image = Nothing
  74.                         Call OriginalColour()
  75.                     Case "a3"
  76.                         Position(2, 0) = "0"
  77.                         pba3.Image = Nothing
  78.                        Call OriginalColour()
  79.                     Case "a4"
  80.                         Position(3, 0) = "0"
  81.                         pba4.Image = Nothing
  82.                         Call OriginalColour()
  83.                     Case "a5"
  84.                         Position(4, 0) = "0"
  85.                         pba5.Image = Nothing
  86.                         Call OriginalColour()
  87.                     Case "a6"
  88.                         Position(5, 0) = "0"
  89.                         pba6.Image = Nothing
  90.                         Call OriginalColour()
  91.                     Case "a7"
  92.                         Position(6, 0) = "0"
  93.                         pba6.Image = Nothing
  94.                         Call OriginalColour()
  95.                     Case "a8"
  96.                         Position(7, 0) = "0"
  97.                         pba8.Image = Nothing
  98.                         Call OriginalColour()
  99.                     Case "b1"
  100.                         Position(0, 1) = "0"
  101.                         pbb1.Image = Nothing
  102.                         Call OriginalColour()
  103.                     Case "c1"
  104.                         Position(0, 2) = "0"
  105.                         pbc1.Image = Nothing
  106.                         Call OriginalColour()
  107.                     Case "d1"
  108.                         Position(0, 3) = "0"
  109.                         pbd1.Image = Nothing
  110.                         Call OriginalColour()
  111.                     Case "e1"
  112.                         Position(0, 4) = "0"
  113.                         pbe1.Image = Nothing
  114.                         Call OriginalColour()
  115.                     Case "f1"
  116.                         Position(0, 5) = "0"
  117.                         pbf1.Image = Nothing
  118.                         Call OriginalColour()
  119.                     Case "g1"
  120.                         Position(0, 6) = "0"
  121.                         pbg1.Image = Nothing
  122.                         Call OriginalColour()
  123.                     Case "h1"
  124.                         Position(0, 7) = "0"
  125.                         pbh1.Image = Nothing
  126.                         Call OriginalColour()
  127.                 End Select
  128.             ElseIf PieceToBeMoved = "blrook" Then
  129.                 Position(0, 0) = "blrook"
  130.                 pba1.Image = Image.FromFile("blackrook.cur")
  131.                 Select Case square
  132.                     Case "a2"
  133.                         Position(1, 0) = "0"
  134.                         pba2.Image = Nothing
  135.                         Call OriginalColour()
  136.                     Case "a3"
  137.                         Position(2, 0) = "0"
  138.                         pba3.Image = Nothing
  139.                         Call OriginalColour()
  140.                     Case "a4"
  141.                         Position(3, 0) = "0"
  142.                         pba4.Image = Nothing
  143.                         Call OriginalColour()
  144.                     Case "a5"
  145.                         Position(4, 0) = "0"
  146.                         pba5.Image = Nothing
  147.                         Call OriginalColour()
  148.                     Case "a6"
  149.                         Position(5, 0) = "0"
  150.                         pba6.Image = Nothing
  151.                         Call OriginalColour()
  152.                     Case "a7"
  153.                         Position(6, 0) = "0"
  154.                         pba6.Image = Nothing
  155.                         Call OriginalColour()
  156.                     Case "a8"
  157.                         Position(7, 0) = "0"
  158.                         pba8.Image = Nothing
  159.                         Call OriginalColour()
  160.                     Case "b1"
  161.                         Position(0, 1) = "0"
  162.                         pbb1.Image = Nothing
  163.                         Call OriginalColour()
  164.                     Case "c1"
  165.                         Position(0, 2) = "0"
  166.                         pbc1.Image = Nothing
  167.                         Call OriginalColour()
  168.                     Case "d1"
  169.                         Position(0, 3) = "0"
  170.                         pbd1.Image = Nothing
  171.                         Call OriginalColour()
  172.                     Case "e1"
  173.                         Position(0, 4) = "0"
  174.                         pbe1.Image = Nothing
  175.                         Call OriginalColour()
  176.                     Case "f1"
  177.                         Position(0, 5) = "0"
  178.                         pbf1.Image = Nothing
  179.                         Call OriginalColour()
  180.                     Case "g1"
  181.                         Position(0, 6) = "0"
  182.                         pbg1.Image = Nothing
  183.                         Call OriginalColour()
  184.                     Case "h1"
  185.                         Position(0, 7) = "0"
  186.                         pbh1.Image = Nothing
  187.                         Call OriginalColour()
  188.                 End Select
  189.             ElseIf PieceToBeMoved = "whknight" Then
  190.                 pba1.Image = Image.FromFile("whiteknight.cur")
  191.                 Position(0, 0) = "whknight"
  192.                 Select Case square
  193.                     Case "b3"
  194.                         Position(2, 1) = "0"
  195.                         pbb3.Image = Nothing
  196.                         Call OriginalColour()
  197.                     Case "c2"
  198.                         Position(1, 2) = "0"
  199.                         pbc2.Image = Nothing
  200.                         Call OriginalColour()
  201.                 End Select
  202.             ElseIf PieceToBeMoved = "blknight" Then
  203.                 pba1.Image = Image.FromFile("blackknight.cur")
  204.                 Position(0, 0) = "blknight"
  205.                 Select Case square
  206.                     Case "b3"
  207.                         Position(2, 1) = "0"
  208.                         pbb3.Image = Nothing
  209.                         Call OriginalColour()
  210.                     Case "c2"
  211.                         Position(1, 2) = "0"
  212.                         pbc2.Image = Nothing
  213.                         Call OriginalColour()
  214.                 End Select
  215.             ElseIf PieceToBeMoved = "whbishop" Then
  216.                 pba1.Image = Image.FromFile("whitebishop.cur")
  217.                 Position(0, 0) = "whbishop"
  218.                 Select Case square
  219.                     Case "b2"
  220.                         Position(1, 1) = "0"
  221.                         pbb2.Image = Nothing
  222.                         Call OriginalColour()
  223.                     Case "c3"
  224.                         Position(2, 2) = "0"
  225.                         pbc3.Image = Nothing
  226.                         Call OriginalColour()
  227.                     Case "d4"
  228.                         Position(3, 3) = "0"
  229.                         pbd4.Image = Nothing
  230.                         Call OriginalColour()
  231.                     Case "e5"
  232.                         Position(4, 4) = "0"
  233.                         pbe5.Image = Nothing
  234.                         Call OriginalColour()
  235.                     Case "f6"
  236.                         Position(5, 5) = "0"
  237.                         pbf6.Image = Nothing
  238.                         Call OriginalColour()
  239.                     Case "g7"
  240.                         Position(6, 6) = "0"
  241.                         pbg7.Image = Nothing
  242.                         Call OriginalColour()
  243.                     Case "h8"
  244.                         Position(7, 7) = "0"
  245.                         pbh8.Image = Nothing
  246.                         Call OriginalColour()
  247.                 End Select
  248.             ElseIf PieceToBeMoved = "blbishop" Then
  249.                 pba1.Image = Image.FromFile("blackbishop.cur")
  250.                 Position(0, 0) = "blbishop"
  251.                 Select Case square
  252.                     Case "b2"
  253.                         Position(1, 1) = "0"
  254.                         pbb2.Image = Nothing
  255.                         Call OriginalColour()
  256.                     Case "c3"
  257.                         Position(2, 2) = "0"
  258.                         pbc3.Image = Nothing
  259.                         Call OriginalColour()
  260.                     Case "d4"
  261.                         Position(3, 3) = "0"
  262.                         pbd4.Image = Nothing
  263.                         Call OriginalColour()
  264.                     Case "e5"
  265.                         Position(4, 4) = "0"
  266.                         pbe5.Image = Nothing
  267.                         Call OriginalColour()
  268.                     Case "f6"
  269.                         Position(5, 5) = "0"
  270.                         pbf6.Image = Nothing
  271.                         Call OriginalColour()
  272.                     Case "g7"
  273.                         Position(6, 6) = "0"
  274.                         pbg7.Image = Nothing
  275.                         Call OriginalColour()
  276.                     Case "h8"
  277.                         Position(7, 7) = "0"
  278.                         pbh8.Image = Nothing
  279.                         Call OriginalColour()
  280.                 End Select
  281.             ElseIf PieceToBeMoved = "whqueen" Then
  282.                 pba1.Image = Image.FromFile("whitequeen.cur")
  283.                 Position(0, 0) = "whqueen"
  284.                 Call OriginalColour()
  285.                 Select Case square
  286.                     Case "a2"
  287.                         Position(1, 0) = "0"
  288.                     Case "a3"
  289.                         Position(2, 0) = "0"
  290.                     Case "a4"
  291.                         Position(3, 0) = "0"
  292.                     Case "a5"
  293.                         Position(4, 0) = "0"
  294.                     Case "a6"
  295.                         Position(5, 0) = "0"
  296.                     Case "a7"
  297.                         Position(6, 0) = "0"
  298.                     Case "a8"
  299.                         Position(7, 0) = "0"
  300.                     Case "b2"
  301.                         Position(1, 1) = "0"
  302.                     Case "c3"
  303.                         Position(2, 2) = "0"
  304.                     Case "d4"
  305.                         Position(3, 3) = "0"
  306.                     Case "e5"
  307.                         Position(4, 4) = "0"
  308.                     Case "f6"
  309.                         Position(5, 5) = "0"
  310.                     Case "g7"
  311.                         Position(6, 6) = "0"
  312.                     Case "h8"
  313.                         Position(7, 7) = "0"
  314.                     Case "b1"
  315.                         Position(0, 1) = "0"
  316.                     Case "c1"
  317.                         Position(0, 2) = "0"
  318.                     Case "d1"
  319.                         Position(0, 3) = "0"
  320.                     Case "e1"
  321.                         Position(0, 4) = "0"
  322.                     Case "f1"
  323.                         Position(0, 5) = "0"
  324.                     Case "g1"
  325.                         Position(0, 6) = "0"
  326.                     Case "h1"
  327.                         Position(0, 7) = "0"
  328.                 End Select
  329.             ElseIf PieceToBeMoved = "blqueen" Then
  330.                 pba1.Image = Image.FromFile("blackqueen.cur")
  331.                 Position(0, 0) = "blqueen"
  332.                 Call OriginalColour()
  333.                 Select Case square
  334.                     Case "a2"
  335.                         Position(1, 0) = "0"
  336.                     Case "a3"
  337.                         Position(2, 0) = "0"
  338.                     Case "a4"
  339.                         Position(3, 0) = "0"
  340.                     Case "a5"
  341.                         Position(4, 0) = "0"
  342.                     Case "a6"
  343.                         Position(5, 0) = "0"
  344.                     Case "a7"
  345.                         Position(6, 0) = "0"
  346.                     Case "a8"
  347.                         Position(7, 0) = "0"
  348.                     Case "b2"
  349.                         Position(1, 1) = "0"
  350.                     Case "c3"
  351.                         Position(2, 2) = "0"
  352.                     Case "d4"
  353.                         Position(3, 3) = "0"
  354.                     Case "e5"
  355.                         Position(4, 4) = "0"
  356.                     Case "f6"
  357.                         Position(5, 5) = "0"
  358.                     Case "g7"
  359.                         Position(6, 6) = "0"
  360.                     Case "h8"
  361.                         Position(7, 7) = "0"
  362.                     Case "b1"
  363.                         Position(0, 1) = "0"
  364.                     Case "c1"
  365.                         Position(0, 2) = "0"
  366.                     Case "d1"
  367.                         Position(0, 3) = "0"
  368.                     Case "e1"
  369.                         Position(0, 4) = "0"
  370.                     Case "f1"
  371.                         Position(0, 5) = "0"
  372.                     Case "g1"
  373.                         Position(0, 6) = "0"
  374.                     Case "h1"
  375.                         Position(0, 7) = "0"
  376.                 End Select
  377.             ElseIf PieceToBeMoved = "whking" Then
  378.                 pba1.Image = Image.FromFile("whiteking.cur")
  379.                 Position(0, 0) = "whking"
  380.                 Call OriginalColour()
  381.                 Select Case square
  382.                     Case "a2"
  383.                         Position(1, 0) = "0"
  384.                     Case "b1"
  385.                         Position(0, 1) = "0"
  386.                     Case "b2"
  387.                         Position(1, 1) = "0"
  388.                 End Select
  389.             ElseIf PieceToBeMoved = "blking" Then
  390.                 pba1.Image = Image.FromFile("blackking.cur")
  391.                 Position(0, 0) = "blking"
  392.                 Call OriginalColour()
  393.                 Select Case square
  394.                     Case "a2"
  395.                         Position(1, 0) = "0"
  396.                     Case "b1"
  397.                         Position(0, 1) = "0"
  398.                     Case "b2"
  399.                         Position(1, 1) = "0"
  400.                 End Select
  401.             End If
  402.         End If
  403.         If piece = "blpawn" Then
  404.             pba1.BackColor = Color.BlanchedAlmond
  405.             PieceToBeMoved = "blpawn"
  406.         ElseIf piece = "whknight" Then
  407.             square = "a1"
  408.             If Position(3, 1) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  409.                 pbb4.BackColor = Color.BlanchedAlmond
  410.             End If
  411.             If Position(2, 2) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  412.                 pbc3.BackColor = Color.BlanchedAlmond
  413.             End If
  414.             If Position(0, 2) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  415.                 pbb4.BackColor = Color.BlanchedAlmond
  416.             End If
  417.             PieceToBeMoved = "whknight"
  418.         ElseIf piece = "blknight" Then
  419.             square = "a1"
  420.             If Position(3, 1) = "0" Or CheckPiece(3, 1) = "whpawn" Or CheckPiece(3, 1) = "whrook" Or CheckPiece(3, 1) = "whknight" Or CheckPiece(3, 1) = "whbishop" Or CheckPiece(3, 1) = "whking" Or CheckPiece(3, 1) = "whqueen" Then
  421.                 pbb4.BackColor = Color.BlanchedAlmond
  422.             End If
  423.             If Position(2, 2) = "0" Or CheckPiece(3, 1) = "whpawn" Or CheckPiece(3, 1) = "whrook" Or CheckPiece(3, 1) = "whknight" Or CheckPiece(3, 1) = "whbishop" Or CheckPiece(3, 1) = "whking" Or CheckPiece(3, 1) = "whqueen" Then
  424.                 pbc3.BackColor = Color.BlanchedAlmond
  425.             End If
  426.             If Position(0, 2) = "0" Or CheckPiece(3, 1) = "whpawn" Or CheckPiece(3, 1) = "whrook" Or CheckPiece(3, 1) = "whknight" Or CheckPiece(3, 1) = "whbishop" Or CheckPiece(3, 1) = "whking" Or CheckPiece(3, 1) = "whqueen" Then
  427.                 pbb4.BackColor = Color.BlanchedAlmond
  428.             End If
  429.             PieceToBeMoved = "blknight"
  430.         ElseIf piece = "whrook" Then
  431.             square = "a1"
  432.             PieceToBeMoved = "whrook"
  433.             If Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True Then
  434.                 pba2.BackColor = Color.BlanchedAlmond
  435.             End If
  436.             If (Position(2, 0) = "0" Or CheckEnemy("white", 2, 0) = True) And CheckPiece(1, 0) = "0" Then
  437.                 pba3.BackColor = Color.BlanchedAlmond
  438.             End If
  439.             If (Position(3, 0) = "0" Or CheckEnemy("white", 3, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" Then
  440.                 pba4.BackColor = Color.BlanchedAlmond
  441.             End If
  442.             If (Position(4, 0) = "0" Or CheckEnemy("white", 4, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" Then
  443.                 pba5.BackColor = Color.BlanchedAlmond
  444.             End If
  445.             If (Position(5, 0) = "0" Or CheckEnemy("white", 5, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" Then
  446.                 pba6.BackColor = Color.BlanchedAlmond
  447.             End If
  448.             If (Position(6, 0) = "0" Or CheckEnemy("white", 6, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" Then
  449.                 pba7.BackColor = Color.BlanchedAlmond
  450.             End If
  451.             If (Position(7, 0) = "0" Or CheckEnemy("white", 7, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" And CheckPiece(6, 0) = "0" Then
  452.                 pba8.BackColor = Color.BlanchedAlmond
  453.             End If
  454.             If Position(0, 1) = "0" Or CheckEnemy("white", 0, 1) = True Then
  455.                 pbb1.BackColor = Color.BlanchedAlmond
  456.             End If
  457.             If (Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True) And CheckPiece(0, 1) = "0" Then
  458.                 pbc1.BackColor = Color.BlanchedAlmond
  459.             End If
  460.             If (Position(0, 3) = "0" Or CheckEnemy("white", 0, 3) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" Then
  461.                 pbd1.BackColor = Color.BlanchedAlmond
  462.             End If
  463.             If (Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  464.                 pbe1.BackColor = Color.BlanchedAlmond
  465.             End If
  466.             If (Position(0, 5) = "0" Or CheckEnemy("white", 0, 5) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  467.                 pbf1.BackColor = Color.BlanchedAlmond
  468.             End If
  469.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  470.                 pbg1.BackColor = Color.BlanchedAlmond
  471.             End If
  472.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  473.                 pbh1.BackColor = Color.BlanchedAlmond
  474.             End If
  475.         ElseIf piece = "blrook" Then
  476.             square = "a1"
  477.             PieceToBeMoved = "blrook"
  478.             If Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True Then
  479.                 pba2.BackColor = Color.BlanchedAlmond
  480.             End If
  481.             If (Position(2, 0) = "0" Or CheckEnemy("black", 2, 0) = True) And CheckPiece(1, 0) = "0" Then
  482.                 pba3.BackColor = Color.BlanchedAlmond
  483.             End If
  484.             If (Position(3, 0) = "0" Or CheckEnemy("black", 3, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" Then
  485.                 pba4.BackColor = Color.BlanchedAlmond
  486.             End If
  487.             If (Position(4, 0) = "0" Or CheckEnemy("black", 4, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" Then
  488.                 pba5.BackColor = Color.BlanchedAlmond
  489.             End If
  490.             If (Position(5, 0) = "0" Or CheckEnemy("black", 5, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" Then
  491.                 pba6.BackColor = Color.BlanchedAlmond
  492.             End If
  493.             If (Position(6, 0) = "0" Or CheckEnemy("black", 6, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" Then
  494.                 pba7.BackColor = Color.BlanchedAlmond
  495.             End If
  496.             If (Position(7, 0) = "0" Or CheckEnemy("black", 7, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" And CheckPiece(6, 0) = "0" Then
  497.                 pba8.BackColor = Color.BlanchedAlmond
  498.             End If
  499.             If Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True Then
  500.                 pbb1.BackColor = Color.BlanchedAlmond
  501.             End If
  502.             If (Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True) And CheckPiece(0, 1) = "0" Then
  503.                 pbc1.BackColor = Color.BlanchedAlmond
  504.             End If
  505.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" Then
  506.                 pbd1.BackColor = Color.BlanchedAlmond
  507.             End If
  508.             If (Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  509.                 pbe1.BackColor = Color.BlanchedAlmond
  510.             End If
  511.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  512.                 pbf1.BackColor = Color.BlanchedAlmond
  513.             End If
  514.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  515.                 pbg1.BackColor = Color.BlanchedAlmond
  516.             End If
  517.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  518.                 pbh1.BackColor = Color.BlanchedAlmond
  519.             End If
  520.         ElseIf piece = "blbishop" Then
  521.             square = "a1"
  522.             PieceToBeMoved = "blbishop"
  523.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  524.                 pbb2.BackColor = Color.BlanchedAlmond
  525.             End If
  526.             If (Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True) And CheckPiece(1, 1) = "0" Then
  527.                 pbc3.BackColor = Color.BlanchedAlmond
  528.             End If
  529.             If (Position(3, 3) = "0" Or CheckEnemy("black", 3, 3) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" Then
  530.                 pbd4.BackColor = Color.BlanchedAlmond
  531.             End If
  532.             If (Position(4, 4) = "0" Or CheckEnemy("black", 4, 4) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" Then
  533.                 pbe5.BackColor = Color.BlanchedAlmond
  534.             End If
  535.             If (Position(5, 5) = "0" Or CheckEnemy("black", 5, 5) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" Then
  536.                 pbf6.BackColor = Color.BlanchedAlmond
  537.             End If
  538.             If (Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" Then
  539.                 pbg7.BackColor = Color.BlanchedAlmond
  540.             End If
  541.             If (Position(7, 7) = "0" Or CheckEnemy("black", 7, 7) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(6, 6) = "0" Then
  542.                 pbh8.BackColor = Color.BlanchedAlmond
  543.             End If
  544.         ElseIf piece = "whbishop" Then
  545.             square = "a1"
  546.             PieceToBeMoved = "whbishop"
  547.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  548.                 pbb2.BackColor = Color.BlanchedAlmond
  549.             End If
  550.             If (Position(2, 2) = "0" Or CheckEnemy("white", 2, 2) = True) And CheckPiece(1, 1) = "0" Then
  551.                 pbc3.BackColor = Color.BlanchedAlmond
  552.             End If
  553.             If (Position(3, 3) = "0" Or CheckEnemy("white", 3, 3) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" Then
  554.                 pbd4.BackColor = Color.BlanchedAlmond
  555.             End If
  556.             If (Position(4, 4) = "0" Or CheckEnemy("white", 4, 4) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" Then
  557.                 pbe5.BackColor = Color.BlanchedAlmond
  558.             End If
  559.             If (Position(5, 5) = "0" Or CheckEnemy("white", 5, 5) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" Then
  560.                 pbf6.BackColor = Color.BlanchedAlmond
  561.             End If
  562.             If (Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" Then
  563.                 pbg7.BackColor = Color.BlanchedAlmond
  564.             End If
  565.             If (Position(7, 7) = "0" Or CheckEnemy("white", 7, 7) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(6, 6) = "0" Then
  566.                 pbh8.BackColor = Color.BlanchedAlmond
  567.             End If
  568.         ElseIf piece = "whqueen" Then
  569.             square = "a1"
  570.             PieceToBeMoved = "whqueen"
  571.             If Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True Then
  572.                 pba2.BackColor = Color.BlanchedAlmond
  573.             End If
  574.             If (Position(2, 0) = "0" Or CheckEnemy("white", 2, 0) = True) And CheckPiece(1, 0) = "0" Then
  575.                 pba3.BackColor = Color.BlanchedAlmond
  576.             End If
  577.             If (Position(3, 0) = "0" Or CheckEnemy("white", 3, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" Then
  578.                 pba4.BackColor = Color.BlanchedAlmond
  579.             End If
  580.             If (Position(4, 0) = "0" Or CheckEnemy("white", 4, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" Then
  581.                 pba5.BackColor = Color.BlanchedAlmond
  582.             End If
  583.             If (Position(5, 0) = "0" Or CheckEnemy("white", 5, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" Then
  584.                 pba6.BackColor = Color.BlanchedAlmond
  585.             End If
  586.             If (Position(6, 0) = "0" Or CheckEnemy("white", 6, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" Then
  587.                 pba7.BackColor = Color.BlanchedAlmond
  588.             End If
  589.             If (Position(7, 0) = "0" Or CheckEnemy("white", 7, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" And CheckPiece(6, 0) = "0" Then
  590.                 pba8.BackColor = Color.BlanchedAlmond
  591.             End If
  592.             If Position(0, 1) = "0" Or CheckEnemy("white", 0, 1) = True Then
  593.                 pbb1.BackColor = Color.BlanchedAlmond
  594.             End If
  595.             If (Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True) And CheckPiece(0, 1) = "0" Then
  596.                 pbc1.BackColor = Color.BlanchedAlmond
  597.             End If
  598.             If (Position(0, 3) = "0" Or CheckEnemy("white", 0, 3) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" Then
  599.                 pbd1.BackColor = Color.BlanchedAlmond
  600.             End If
  601.             If (Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  602.                 pbe1.BackColor = Color.BlanchedAlmond
  603.             End If
  604.             If (Position(0, 5) = "0" Or CheckEnemy("white", 0, 5) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  605.                 pbf1.BackColor = Color.BlanchedAlmond
  606.             End If
  607.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  608.                 pbg1.BackColor = Color.BlanchedAlmond
  609.             End If
  610.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  611.                 pbh1.BackColor = Color.BlanchedAlmond
  612.             End If
  613.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  614.                 pbb2.BackColor = Color.BlanchedAlmond
  615.             End If
  616.             If (Position(2, 2) = "0" Or CheckEnemy("white", 2, 2) = True) And CheckPiece(1, 1) = "0" Then
  617.                 pbc3.BackColor = Color.BlanchedAlmond
  618.             End If
  619.             If (Position(3, 3) = "0" Or CheckEnemy("white", 3, 3) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" Then
  620.                 pbd4.BackColor = Color.BlanchedAlmond
  621.             End If
  622.             If (Position(4, 4) = "0" Or CheckEnemy("white", 4, 4) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" Then
  623.                 pbe5.BackColor = Color.BlanchedAlmond
  624.             End If
  625.             If (Position(5, 5) = "0" Or CheckEnemy("white", 5, 5) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" Then
  626.                 pbf6.BackColor = Color.BlanchedAlmond
  627.             End If
  628.             If (Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" Then
  629.                 pbg7.BackColor = Color.BlanchedAlmond
  630.             End If
  631.             If (Position(7, 7) = "0" Or CheckEnemy("white", 7, 7) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(6, 6) = "0" Then
  632.                 pbh8.BackColor = Color.BlanchedAlmond
  633.             End If
  634.         ElseIf piece = "blqueen" Then
  635.             square = "a1"
  636.             PieceToBeMoved = "blqueen"
  637.             If Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True Then
  638.                 pba2.BackColor = Color.BlanchedAlmond
  639.             End If
  640.             If (Position(2, 0) = "0" Or CheckEnemy("black", 2, 0) = True) And CheckPiece(1, 0) = "0" Then
  641.                 pba3.BackColor = Color.BlanchedAlmond
  642.             End If
  643.             If (Position(3, 0) = "0" Or CheckEnemy("black", 3, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" Then
  644.                 pba4.BackColor = Color.BlanchedAlmond
  645.             End If
  646.             If (Position(4, 0) = "0" Or CheckEnemy("black", 4, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" Then
  647.                 pba5.BackColor = Color.BlanchedAlmond
  648.             End If
  649.             If (Position(5, 0) = "0" Or CheckEnemy("black", 5, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" Then
  650.                 pba6.BackColor = Color.BlanchedAlmond
  651.             End If
  652.             If (Position(6, 0) = "0" Or CheckEnemy("black", 6, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" Then
  653.                 pba7.BackColor = Color.BlanchedAlmond
  654.             End If
  655.             If (Position(7, 0) = "0" Or CheckEnemy("black", 7, 0) = True) And CheckPiece(1, 0) = "0" And CheckPiece(2, 0) = "0" And CheckPiece(3, 0) = "0" And CheckPiece(4, 0) = "0" And CheckPiece(5, 0) = "0" And CheckPiece(6, 0) = "0" Then
  656.                 pba8.BackColor = Color.BlanchedAlmond
  657.             End If
  658.             If Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True Then
  659.                 pbb1.BackColor = Color.BlanchedAlmond
  660.             End If
  661.             If (Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True) And CheckPiece(0, 1) = "0" Then
  662.                 pbc1.BackColor = Color.BlanchedAlmond
  663.             End If
  664.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" Then
  665.                 pbd1.BackColor = Color.BlanchedAlmond
  666.             End If
  667.             If (Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  668.                 pbe1.BackColor = Color.BlanchedAlmond
  669.             End If
  670.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  671.                 pbf1.BackColor = Color.BlanchedAlmond
  672.             End If
  673.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  674.                 pbg1.BackColor = Color.BlanchedAlmond
  675.             End If
  676.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 1) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  677.                 pbh1.BackColor = Color.BlanchedAlmond
  678.             End If
  679.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  680.                 pbb2.BackColor = Color.BlanchedAlmond
  681.             End If
  682.             If (Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True) And CheckPiece(1, 1) = "0" Then
  683.                 pbc3.BackColor = Color.BlanchedAlmond
  684.             End If
  685.             If (Position(3, 3) = "0" Or CheckEnemy("black", 3, 3) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" Then
  686.                 pbd4.BackColor = Color.BlanchedAlmond
  687.             End If
  688.             If (Position(4, 4) = "0" Or CheckEnemy("black", 4, 4) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" Then
  689.                 pbe5.BackColor = Color.BlanchedAlmond
  690.             End If
  691.             If (Position(5, 5) = "0" Or CheckEnemy("black", 5, 5) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" Then
  692.                 pbf6.BackColor = Color.BlanchedAlmond
  693.             End If
  694.             If (Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" Then
  695.                 pbg7.BackColor = Color.BlanchedAlmond
  696.             End If
  697.             If (Position(7, 7) = "0" Or CheckEnemy("black", 7, 7) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(6, 6) = "0" Then
  698.                 pbh8.BackColor = Color.BlanchedAlmond
  699.             End If
  700.         ElseIf piece = "whking" Then
  701.             square = "a1"
  702.             PieceToBeMoved = "whking"" "
  703.             If Position(1, 0) = "0" Then
  704.                 pba2.BackColor = Color.BlanchedAlmond
  705.             End If
  706.             If Position(1, 1) = "0" Then
  707.                 pbb2.BackColor = Color.BlanchedAlmond
  708.             End If
  709.             If Position(0, 1) = "0" Then
  710.                 pbb1.BackColor = Color.BlanchedAlmond
  711.             End If
  712.         ElseIf piece = "blking" Then
  713.             square = "a1"
  714.             PieceToBeMoved = "blking"
  715.             If Position(1, 0) = "0" Then
  716.                 pba2.BackColor = Color.BlanchedAlmond
  717.             End If
  718.             If Position(1, 1) = "0" Then
  719.                 pbb2.BackColor = Color.BlanchedAlmond
  720.             End If
  721.             If Position(0, 1) = "0" Then
  722.                 pbb1.BackColor = Color.BlanchedAlmond
  723.             End If
  724.         End If
  725.     End Sub
  726.  
  727.     Private Sub pbb1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb1.Click
  728.         piece = CheckPiece(0, 1)
  729.         If pbb1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  730.             If PieceToBeMoved = "whpawn" Then
  731.                 pbb1.Image = Image.FromFile("whitepawn.cur")
  732.             ElseIf PieceToBeMoved = "blpawn" Then
  733.                 pbb1.Image = Image.FromFile("blackqueen.cur")
  734.                 Call OriginalColour()
  735.                 Position(0, 1) = "blqueen"
  736.                 Select Case square
  737.                     Case "a2"
  738.                         Position(1, 0) = "0"
  739.                         pba2.Image = Nothing
  740.                     Case "c2"
  741.                         Position(1, 2) = "0"
  742.                         pbc2.Image = Nothing
  743.                     Case "b2"
  744.                         Position(1, 1) = "0"
  745.                         pbb2.Image = Nothing
  746.                 End Select
  747.             ElseIf PieceToBeMoved = "whrook" Then
  748.                 pbb1.Image = Image.FromFile("whiterook.cur")
  749.                 Position(0, 1) = "whrook"
  750.                 Call OriginalColour()
  751.                 Select Case square
  752.                     Case "a1"
  753.                         Position(0, 0) = "0"
  754.                         pba1.Image = Nothing
  755.                     Case "c1"
  756.                         Position(0, 2) = "0"
  757.                         pbc1.Image = Nothing
  758.                     Case "d1"
  759.                         Position(0, 3) = "0"
  760.                         pbd1.Image = Nothing
  761.                     Case "e1"
  762.                         Position(0, 4) = "0"
  763.                         pbe1.Image = Nothing
  764.                     Case "f1"
  765.                         Position(0, 5) = "0"
  766.                         pbf1.Image = Nothing
  767.                     Case "g1"
  768.                         Position(0, 6) = "0"
  769.                         pbg1.Image = Nothing
  770.                     Case "h1"
  771.                         Position(0, 7) = "0"
  772.                         pbh1.Image = Nothing
  773.                     Case "b2"
  774.                         Position(1, 1) = "0"
  775.                         pbb2.Image = Nothing
  776.                     Case "b3"
  777.                         Position(2, 1) = "0"
  778.                         pbb3.Image = Nothing
  779.                     Case "b4"
  780.                         Position(3, 1) = "0"
  781.                         pbb4.Image = Nothing
  782.                     Case "b5"
  783.                         Position(4, 1) = "0"
  784.                         pbb5.Image = Nothing
  785.                     Case "b6"
  786.                         Position(5, 1) = "0"
  787.                         pbb6.Image = Nothing
  788.                     Case "b7"
  789.                         Position(6, 1) = "0"
  790.                         pbb7.Image = Nothing
  791.                     Case "b8"
  792.                         Position(7, 1) = "0"
  793.                         pbb8.Image = Nothing
  794.                 End Select
  795.             ElseIf PieceToBeMoved = "blrook" Then
  796.                 pbb1.Image = Image.FromFile("blackrook.cur")
  797.                 Position(0, 1) = "blrook"
  798.                 Call OriginalColour()
  799.                 Select Case square
  800.                     Case "a1"
  801.                         Position(0, 0) = "0"
  802.                         pba1.Image = Nothing
  803.                     Case "c1"
  804.                         Position(0, 2) = "0"
  805.                         pbc1.Image = Nothing
  806.                     Case "d1"
  807.                         Position(0, 3) = "0"
  808.                         pbd1.Image = Nothing
  809.                     Case "e1"
  810.                         Position(0, 4) = "0"
  811.                         pbe1.Image = Nothing
  812.                     Case "f1"
  813.                         Position(0, 5) = "0"
  814.                         pbf1.Image = Nothing
  815.                     Case "g1"
  816.                         Position(0, 6) = "0"
  817.                         pbg1.Image = Nothing
  818.                     Case "h1"
  819.                         Position(0, 7) = "0"
  820.                         pbh1.Image = Nothing
  821.                     Case "b2"
  822.                         Position(1, 1) = "0"
  823.                         pbb2.Image = Nothing
  824.                     Case "b3"
  825.                         Position(2, 1) = "0"
  826.                         pbb3.Image = Nothing
  827.                     Case "b4"
  828.                         Position(3, 1) = "0"
  829.                         pbb4.Image = Nothing
  830.                     Case "b5"
  831.                         Position(4, 1) = "0"
  832.                         pbb5.Image = Nothing
  833.                     Case "b6"
  834.                         Position(5, 1) = "0"
  835.                         pbb6.Image = Nothing
  836.                     Case "b7"
  837.                         Position(6, 1) = "0"
  838.                         pbb7.Image = Nothing
  839.                     Case "b8"
  840.                         Position(7, 1) = "0"
  841.                         pbb8.Image = Nothing
  842.                 End Select
  843.             ElseIf PieceToBeMoved = "whknight" Then
  844.                 pbb1.Image = Image.FromFile("whiteknight.cur")
  845.                 Position(0, 1) = "whknight"
  846.                 Call OriginalColour()
  847.                 Select Case square
  848.                     Case "a3"
  849.                         Position(2, 0) = "0"
  850.                         pba3.Image = Nothing
  851.                     Case "c3"
  852.                         Position(2, 2) = "0"
  853.                         pbc3.Image = Nothing
  854.                     Case "d2"
  855.                         pbd2.Image = Nothing
  856.                         Position(1, 3) = "0"
  857.                 End Select
  858.             ElseIf PieceToBeMoved = "blknight" Then
  859.                 pbb1.Image = Image.FromFile("blackknight.cur")
  860.                 Position(0, 1) = "blknight"
  861.                 Call OriginalColour()
  862.                 Select Case square
  863.                     Case "a3"
  864.                         Position(2, 0) = "0"
  865.                         pba3.Image = Nothing
  866.                     Case "c3"
  867.                         Position(2, 2) = "0"
  868.                         pbc3.Image = Nothing
  869.                     Case "d2"
  870.                         pbd2.Image = Nothing
  871.                         Position(1, 3) = "0"
  872.                 End Select
  873.             ElseIf PieceToBeMoved = "whbishop" Then
  874.                 pbb1.Image = Image.FromFile("whitebishop.cur")
  875.                 Position(0, 1) = "whbishop"
  876.                 Call OriginalColour()
  877.                 Select Case square
  878.                     Case "a2"
  879.                         pba2.Image = Nothing
  880.                         Position(1, 0) = "0"
  881.                     Case "c2"
  882.                         pbc2.Image = Nothing
  883.                         Position(1, 2) = "0"
  884.                     Case "d3"
  885.                         pbd3.Image = Nothing
  886.                         Position(2, 3) = "0"
  887.                     Case "e4"
  888.                         pbe4.Image = Nothing
  889.                         Position(3, 4) = "0"
  890.                     Case "f5"
  891.                         pbf5.Image = Nothing
  892.                         Position(4, 5) = "0"
  893.                     Case "g6"
  894.                         pbg6.Image = Nothing
  895.                         Position(5, 6) = "0"
  896.                     Case "h7"
  897.                         pbh7.Image = Nothing
  898.                         Position(6, 7) = "0"
  899.                 End Select
  900.             ElseIf PieceToBeMoved = "blbishop" Then
  901.                 pbb1.Image = Image.FromFile("blackbishop.cur")
  902.                 Position(0, 1) = "blbishop"
  903.                 Call OriginalColour()
  904.                 Select Case square
  905.                     Case "a2"
  906.                         pba2.Image = Nothing
  907.                         Position(1, 0) = "0"
  908.                     Case "c2"
  909.                         pbc2.Image = Nothing
  910.                         Position(1, 2) = "0"
  911.                     Case "d3"
  912.                         pbd3.Image = Nothing
  913.                         Position(2, 3) = "0"
  914.                     Case "e4"
  915.                         pbe4.Image = Nothing
  916.                         Position(3, 4) = "0"
  917.                     Case "f5"
  918.                         pbf5.Image = Nothing
  919.                         Position(4, 5) = "0"
  920.                     Case "g6"
  921.                         pbg6.Image = Nothing
  922.                         Position(5, 6) = "0"
  923.                     Case "h7"
  924.                         pbh7.Image = Nothing
  925.                         Position(6, 7) = "0"
  926.                 End Select
  927.             ElseIf PieceToBeMoved = "whqueen" Then
  928.                 pbb1.Image = Image.FromFile("whitequeen.cur")
  929.                 Position(0, 1) = "whqueen"
  930.                 Call OriginalColour()
  931.                 Select Case square
  932.                     Case "a1"
  933.                         Position(0, 0) = "0"
  934.                         pba1.Image = Nothing
  935.                     Case "c1"
  936.                         Position(0, 2) = "0"
  937.                         pbc1.Image = Nothing
  938.                     Case "d1"
  939.                         Position(0, 3) = "0"
  940.                         pbd1.Image = Nothing
  941.                     Case "e1"
  942.                         Position(0, 4) = "0"
  943.                         pbe1.Image = Nothing
  944.                     Case "f1"
  945.                         Position(0, 5) = "0"
  946.                         pbf1.Image = Nothing
  947.                     Case "g1"
  948.                         Position(0, 6) = "0"
  949.                         pbg1.Image = Nothing
  950.                     Case "h1"
  951.                         Position(0, 7) = "0"
  952.                         pbh1.Image = Nothing
  953.                     Case "b2"
  954.                         Position(1, 1) = "0"
  955.                         pbb2.Image = Nothing
  956.                     Case "b3"
  957.                         Position(2, 1) = "0"
  958.                         pbb3.Image = Nothing
  959.                     Case "b4"
  960.                         Position(3, 1) = "0"
  961.                         pbb4.Image = Nothing
  962.                     Case "b5"
  963.                         Position(4, 1) = "0"
  964.                         pbb5.Image = Nothing
  965.                     Case "b6"
  966.                         Position(5, 1) = "0"
  967.                         pbb6.Image = Nothing
  968.                     Case "b7"
  969.                         Position(6, 1) = "0"
  970.                         pbb7.Image = Nothing
  971.                     Case "b8"
  972.                         Position(7, 1) = "0"
  973.                         pbb8.Image = Nothing
  974.                     Case "a2"
  975.                         pba2.Image = Nothing
  976.                         Position(1, 0) = "0"
  977.                     Case "c2"
  978.                         pbc2.Image = Nothing
  979.                         Position(1, 2) = "0"
  980.                     Case "d3"
  981.                         pbd3.Image = Nothing
  982.                         Position(2, 3) = "0"
  983.                     Case "e4"
  984.                         pbe4.Image = Nothing
  985.                         Position(3, 4) = "0"
  986.                     Case "f5"
  987.                         pbf5.Image = Nothing
  988.                         Position(4, 5) = "0"
  989.                     Case "g6"
  990.                         pbg6.Image = Nothing
  991.                         Position(5, 6) = "0"
  992.                     Case "h7"
  993.                         pbh7.Image = Nothing
  994.                         Position(6, 7) = "0"
  995.                 End Select
  996.             ElseIf PieceToBeMoved = "blqueen" Then
  997.                 pbb1.Image = Image.FromFile("blackqueen.cur")
  998.                 Position(0, 1) = "blqueen"
  999.                 Call OriginalColour()
  1000.                 Select Case square
  1001.                     Case "a1"
  1002.                         Position(0, 0) = "0"
  1003.                         pba1.Image = Nothing
  1004.                     Case "c1"
  1005.                         Position(0, 2) = "0"
  1006.                         pbc1.Image = Nothing
  1007.                     Case "d1"
  1008.                         Position(0, 3) = "0"
  1009.                         pbd1.Image = Nothing
  1010.                     Case "e1"
  1011.                         Position(0, 4) = "0"
  1012.                         pbe1.Image = Nothing
  1013.                     Case "f1"
  1014.                         Position(0, 5) = "0"
  1015.                         pbf1.Image = Nothing
  1016.                     Case "g1"
  1017.                         Position(0, 6) = "0"
  1018.                         pbg1.Image = Nothing
  1019.                     Case "h1"
  1020.                         Position(0, 7) = "0"
  1021.                         pbh1.Image = Nothing
  1022.                     Case "b2"
  1023.                         Position(1, 1) = "0"
  1024.                         pbb2.Image = Nothing
  1025.                     Case "b3"
  1026.                         Position(2, 1) = "0"
  1027.                         pbb3.Image = Nothing
  1028.                     Case "b4"
  1029.                         Position(3, 1) = "0"
  1030.                         pbb4.Image = Nothing
  1031.                     Case "b5"
  1032.                         Position(4, 1) = "0"
  1033.                         pbb5.Image = Nothing
  1034.                     Case "b6"
  1035.                         Position(5, 1) = "0"
  1036.                         pbb6.Image = Nothing
  1037.                     Case "b7"
  1038.                         Position(6, 1) = "0"
  1039.                         pbb7.Image = Nothing
  1040.                     Case "b8"
  1041.                         Position(7, 1) = "0"
  1042.                         pbb8.Image = Nothing
  1043.                     Case "a2"
  1044.                         pba2.Image = Nothing
  1045.                         Position(1, 0) = "0"
  1046.                     Case "c2"
  1047.                         pbc2.Image = Nothing
  1048.                         Position(1, 2) = "0"
  1049.                     Case "d3"
  1050.                         pbd3.Image = Nothing
  1051.                         Position(2, 3) = "0"
  1052.                     Case "e4"
  1053.                         pbe4.Image = Nothing
  1054.                         Position(3, 4) = "0"
  1055.                     Case "f5"
  1056.                         pbf5.Image = Nothing
  1057.                         Position(4, 5) = "0"
  1058.                     Case "g6"
  1059.                         pbg6.Image = Nothing
  1060.                         Position(5, 6) = "0"
  1061.                     Case "h7"
  1062.                         pbh7.Image = Nothing
  1063.                         Position(6, 7) = "0"
  1064.                 End Select
  1065.             ElseIf PieceToBeMoved = "whking" Then
  1066.                 pbb1.Image = Image.FromFile("whiteking.cur")
  1067.                 Position(0, 1) = "whking"
  1068.                 Call OriginalColour()
  1069.                 Select Case square
  1070.                     Case "a1"
  1071.                         Position(0, 0) = "0"
  1072.                         pba1.Image = Nothing
  1073.                     Case "c1"
  1074.                         Position(0, 2) = "0"
  1075.                         pbc1.Image = Nothing
  1076.                     Case "a2"
  1077.                         Position(1, 0) = "0"
  1078.                         pba2.Image = Nothing
  1079.                     Case "b2"
  1080.                         Position(1, 1) = "0"
  1081.                         pbb2.Image = Nothing
  1082.                     Case "c2"
  1083.                         Position(1, 2) = "0"
  1084.                         pbc2.Image = Nothing
  1085.                 End Select
  1086.             ElseIf PieceToBeMoved = "blking" Then
  1087.                 pbb1.Image = Image.FromFile("blackking.cur")
  1088.                 Position(0, 1) = "blking"
  1089.                 Call OriginalColour()
  1090.                 Select Case square
  1091.                     Case "a1"
  1092.                         Position(0, 0) = "0"
  1093.                         pba1.Image = Nothing
  1094.                     Case "c1"
  1095.                         Position(0, 2) = "0"
  1096.                         pbc1.Image = Nothing
  1097.                     Case "a2"
  1098.                         Position(1, 0) = "0"
  1099.                         pba2.Image = Nothing
  1100.                     Case "b2"
  1101.                         Position(1, 1) = "0"
  1102.                         pbb2.Image = Nothing
  1103.                     Case "c2"
  1104.                         Position(1, 2) = "0"
  1105.                         pbc2.Image = Nothing
  1106.                 End Select
  1107.             End If
  1108.         End If
  1109.         If piece = "whknight" Then
  1110.             PieceToBeMoved = "whknight"
  1111.             square = "b1"
  1112.             If Position(2, 2) = "0" Or CheckPiece(2, 2) = "blpawn" Or CheckPiece(2, 2) = "blrook" Or CheckPiece(2, 2) = "blknight" Or CheckPiece(2, 2) = "blbishop" Or CheckPiece(2, 2) = "blking" Or CheckPiece(2, 2) = "blqueen" Then
  1113.                 pbc3.BackColor = Color.BlanchedAlmond
  1114.             End If
  1115.             If Position(2, 0) = "0" Or CheckPiece(2, 0) = "blpawn" Or CheckPiece(2, 0) = "blrook" Or CheckPiece(2, 0) = "blknight" Or CheckPiece(2, 0) = "blbishop" Or CheckPiece(2, 0) = "blking" Or CheckPiece(2, 0) = "blqueen" Then
  1116.                 pba3.BackColor = Color.BlanchedAlmond
  1117.             End If
  1118.             If Position(1, 3) = "0" Or CheckPiece(1, 3) = "blpawn" Or CheckPiece(1, 3) = "blrook" Or CheckPiece(1, 3) = "blknight" Or CheckPiece(1, 3) = "blbishop" Or CheckPiece(1, 3) = "blking" Or CheckPiece(1, 3) = "blqueen" Then
  1119.                 pbd2.BackColor = Color.BlanchedAlmond
  1120.             End If
  1121.         ElseIf piece = "blknight" Then
  1122.             PieceToBeMoved = "blknight"
  1123.             square = "b1"
  1124.             If Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True Then
  1125.                 pbc3.BackColor = Color.BlanchedAlmond
  1126.             End If
  1127.             If Position(2, 0) = "0" Or CheckEnemy("black", 2, 0) = True Then
  1128.                 pba3.BackColor = Color.BlanchedAlmond
  1129.             End If
  1130.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  1131.                 pbd2.BackColor = Color.BlanchedAlmond
  1132.             End If
  1133.         ElseIf piece = "whrook" Then
  1134.             square = "b1"
  1135.             PieceToBeMoved = "whrook"
  1136.             If Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True Then
  1137.                 pba1.BackColor = Color.BlanchedAlmond
  1138.             End If
  1139.             If (Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True) Then
  1140.                 pbc1.BackColor = Color.BlanchedAlmond
  1141.             End If
  1142.             If (Position(0, 3) = "0" Or CheckEnemy("white", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  1143.                 pbd1.BackColor = Color.BlanchedAlmond
  1144.             End If
  1145.             If (Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  1146.                 pbe1.BackColor = Color.BlanchedAlmond
  1147.             End If
  1148.             If (Position(0, 5) = "0" Or CheckEnemy("white", 0, 5) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  1149.                 pbf1.BackColor = Color.BlanchedAlmond
  1150.             End If
  1151.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  1152.                 pbg1.BackColor = Color.BlanchedAlmond
  1153.             End If
  1154.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  1155.                 pbh1.BackColor = Color.BlanchedAlmond
  1156.             End If
  1157.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  1158.                 pbb2.BackColor = Color.BlanchedAlmond
  1159.             End If
  1160.             If (Position(2, 1) = "0" Or CheckEnemy("white", 2, 1) = True) And CheckPiece(1, 1) = "0" Then
  1161.                 pbb3.BackColor = Color.BlanchedAlmond
  1162.             End If
  1163.             If (Position(3, 1) = "0" Or CheckEnemy("white", 3, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" Then
  1164.                 pbb4.BackColor = Color.BlanchedAlmond
  1165.             End If
  1166.             If (Position(4, 1) = "0" Or CheckEnemy("white", 4, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" Then
  1167.                 pbb5.BackColor = Color.BlanchedAlmond
  1168.             End If
  1169.             If (Position(5, 1) = "0" Or CheckEnemy("white", 5, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" Then
  1170.                 pbb6.BackColor = Color.BlanchedAlmond
  1171.             End If
  1172.             If (Position(6, 1) = "0" Or CheckEnemy("white", 6, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" Then
  1173.                 pbb7.BackColor = Color.BlanchedAlmond
  1174.             End If
  1175.             If (Position(7, 1) = "0" Or CheckEnemy("white", 7, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" And CheckPiece(6, 1) = "0" Then
  1176.                 pbb8.BackColor = Color.BlanchedAlmond
  1177.             End If
  1178.         ElseIf piece = "blrook" Then
  1179.             square = "b1"
  1180.             PieceToBeMoved = "blrook"
  1181.             If Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True Then
  1182.                 pba1.BackColor = Color.BlanchedAlmond
  1183.             End If
  1184.             If (Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True) Then
  1185.                 pbc1.BackColor = Color.BlanchedAlmond
  1186.             End If
  1187.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  1188.                 pbd1.BackColor = Color.BlanchedAlmond
  1189.             End If
  1190.             If (Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  1191.                 pbe1.BackColor = Color.BlanchedAlmond
  1192.             End If
  1193.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  1194.                 pbf1.BackColor = Color.BlanchedAlmond
  1195.             End If
  1196.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  1197.                 pbg1.BackColor = Color.BlanchedAlmond
  1198.             End If
  1199.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  1200.                 pbh1.BackColor = Color.BlanchedAlmond
  1201.             End If
  1202.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  1203.                 pbb2.BackColor = Color.BlanchedAlmond
  1204.             End If
  1205.             If (Position(2, 1) = "0" Or CheckEnemy("black", 2, 1) = True) And CheckPiece(1, 1) = "0" Then
  1206.                 pbb3.BackColor = Color.BlanchedAlmond
  1207.             End If
  1208.             If (Position(3, 1) = "0" Or CheckEnemy("black", 3, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" Then
  1209.                 pbb4.BackColor = Color.BlanchedAlmond
  1210.             End If
  1211.             If (Position(4, 1) = "0" Or CheckEnemy("black", 4, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" Then
  1212.                 pbb5.BackColor = Color.BlanchedAlmond
  1213.             End If
  1214.             If (Position(5, 1) = "0" Or CheckEnemy("black", 5, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" Then
  1215.                 pbb6.BackColor = Color.BlanchedAlmond
  1216.             End If
  1217.             If (Position(6, 1) = "0" Or CheckEnemy("black", 6, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" Then
  1218.                 pbb7.BackColor = Color.BlanchedAlmond
  1219.             End If
  1220.             If (Position(7, 1) = "0" Or CheckEnemy("black", 7, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" And CheckPiece(6, 1) = "0" Then
  1221.                 pbb8.BackColor = Color.BlanchedAlmond
  1222.             End If
  1223.         ElseIf piece = "blbishop" Then
  1224.             square = "b1"
  1225.             PieceToBeMoved = "blbishop"
  1226.             If Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True Then
  1227.                 pba2.BackColor = Color.BlanchedAlmond
  1228.             End If
  1229.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  1230.                 pbc2.BackColor = Color.Black
  1231.             End If
  1232.             If (Position(2, 3) = "0" Or CheckEnemy("black", 2, 3) = True) And CheckPiece(1, 2) = "0" Then
  1233.                 pbd3.BackColor = Color.BlanchedAlmond
  1234.             End If
  1235.             If (Position(3, 4) = "0" Or CheckEnemy("black", 3, 4) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" Then
  1236.                 pbe4.BackColor = Color.BlanchedAlmond
  1237.             End If
  1238.             If (Position(4, 5) = "0" Or CheckEnemy("black", 4, 5) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" Then
  1239.                 pbf5.BackColor = Color.BlanchedAlmond
  1240.             End If
  1241.             If (Position(5, 6) = "0" Or CheckEnemy("black", 5, 6) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" Then
  1242.                 pbg6.BackColor = Color.BlanchedAlmond
  1243.             End If
  1244.             If (Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" And CheckPiece(5, 6) = "0" Then
  1245.                 pbh7.BackColor = Color.BlanchedAlmond
  1246.             End If
  1247.         ElseIf piece = "whbishop" Then
  1248.             square = "b1"
  1249.             PieceToBeMoved = "whbishop"
  1250.             If Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True Then
  1251.                 pba2.BackColor = Color.BlanchedAlmond
  1252.             End If
  1253.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  1254.                 pbc2.BackColor = Color.Black
  1255.             End If
  1256.             If (Position(2, 3) = "0" Or CheckEnemy("white", 2, 3) = True) And CheckPiece(1, 2) = "0" Then
  1257.                 pbd3.BackColor = Color.BlanchedAlmond
  1258.             End If
  1259.             If (Position(3, 4) = "0" Or CheckEnemy("white", 3, 4) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" Then
  1260.                 pbe4.BackColor = Color.BlanchedAlmond
  1261.             End If
  1262.             If (Position(4, 5) = "0" Or CheckEnemy("white", 4, 5) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" Then
  1263.                 pbf5.BackColor = Color.BlanchedAlmond
  1264.             End If
  1265.             If (Position(5, 6) = "0" Or CheckEnemy("white", 5, 6) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" Then
  1266.                 pbg6.BackColor = Color.BlanchedAlmond
  1267.             End If
  1268.             If (Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" And CheckPiece(5, 6) = "0" Then
  1269.                 pbh7.BackColor = Color.BlanchedAlmond
  1270.             End If
  1271.         ElseIf piece = "whqueen" Then
  1272.             square = "b1"
  1273.             PieceToBeMoved = "whqueen"
  1274.             If Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True Then
  1275.                 pba2.BackColor = Color.BlanchedAlmond
  1276.             End If
  1277.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  1278.                 pbc2.BackColor = Color.Black
  1279.             End If
  1280.             If (Position(2, 3) = "0" Or CheckEnemy("white", 2, 3) = True) And CheckPiece(1, 2) = "0" Then
  1281.                 pbd3.BackColor = Color.BlanchedAlmond
  1282.             End If
  1283.             If (Position(3, 4) = "0" Or CheckEnemy("white", 3, 4) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" Then
  1284.                 pbe4.BackColor = Color.BlanchedAlmond
  1285.             End If
  1286.             If (Position(4, 5) = "0" Or CheckEnemy("white", 4, 5) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" Then
  1287.                 pbf5.BackColor = Color.BlanchedAlmond
  1288.             End If
  1289.             If (Position(5, 6) = "0" Or CheckEnemy("white", 5, 6) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" Then
  1290.                 pbg6.BackColor = Color.BlanchedAlmond
  1291.             End If
  1292.             If (Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" And CheckPiece(5, 6) = "0" Then
  1293.                 pbh7.BackColor = Color.BlanchedAlmond
  1294.             End If
  1295.             If Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True Then
  1296.                 pba1.BackColor = Color.BlanchedAlmond
  1297.             End If
  1298.             If (Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True) Then
  1299.                 pbc1.BackColor = Color.BlanchedAlmond
  1300.             End If
  1301.             If (Position(0, 3) = "0" Or CheckEnemy("white", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  1302.                 pbd1.BackColor = Color.BlanchedAlmond
  1303.             End If
  1304.             If (Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  1305.                 pbe1.BackColor = Color.BlanchedAlmond
  1306.             End If
  1307.             If (Position(0, 5) = "0" Or CheckEnemy("white", 0, 5) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  1308.                 pbf1.BackColor = Color.BlanchedAlmond
  1309.             End If
  1310.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  1311.                 pbg1.BackColor = Color.BlanchedAlmond
  1312.             End If
  1313.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  1314.                 pbh1.BackColor = Color.BlanchedAlmond
  1315.             End If
  1316.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  1317.                 pbb2.BackColor = Color.BlanchedAlmond
  1318.             End If
  1319.             If (Position(2, 1) = "0" Or CheckEnemy("white", 2, 1) = True) And CheckPiece(1, 1) = "0" Then
  1320.                 pbb3.BackColor = Color.BlanchedAlmond
  1321.             End If
  1322.             If (Position(3, 1) = "0" Or CheckEnemy("white", 3, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" Then
  1323.                 pbb4.BackColor = Color.BlanchedAlmond
  1324.             End If
  1325.             If (Position(4, 1) = "0" Or CheckEnemy("white", 4, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" Then
  1326.                 pbb5.BackColor = Color.BlanchedAlmond
  1327.             End If
  1328.             If (Position(5, 1) = "0" Or CheckEnemy("white", 5, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" Then
  1329.                 pbb6.BackColor = Color.BlanchedAlmond
  1330.             End If
  1331.             If (Position(6, 1) = "0" Or CheckEnemy("white", 6, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" Then
  1332.                 pbb7.BackColor = Color.BlanchedAlmond
  1333.             End If
  1334.             If (Position(7, 1) = "0" Or CheckEnemy("white", 7, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" And CheckPiece(6, 1) = "0" Then
  1335.                 pbb8.BackColor = Color.BlanchedAlmond
  1336.             End If
  1337.         ElseIf piece = "blqueen" Then
  1338.             square = "b1"
  1339.             PieceToBeMoved = "blqueen"
  1340.             If Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True Then
  1341.                 pba2.BackColor = Color.BlanchedAlmond
  1342.             End If
  1343.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  1344.                 pbc2.BackColor = Color.Black
  1345.             End If
  1346.             If (Position(2, 3) = "0" Or CheckEnemy("black", 2, 3) = True) And CheckPiece(1, 2) = "0" Then
  1347.                 pbd3.BackColor = Color.BlanchedAlmond
  1348.             End If
  1349.             If (Position(3, 4) = "0" Or CheckEnemy("black", 3, 4) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" Then
  1350.                 pbe4.BackColor = Color.BlanchedAlmond
  1351.             End If
  1352.             If (Position(4, 5) = "0" Or CheckEnemy("black", 4, 5) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" Then
  1353.                 pbf5.BackColor = Color.BlanchedAlmond
  1354.             End If
  1355.             If (Position(5, 6) = "0" Or CheckEnemy("black", 5, 6) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" Then
  1356.                 pbg6.BackColor = Color.BlanchedAlmond
  1357.             End If
  1358.             If (Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True) And CheckPiece(2, 3) = "0" And CheckPiece(1, 2) = "0" And CheckPiece(3, 4) = "0" And CheckPiece(4, 5) = "0" And CheckPiece(5, 6) = "0" Then
  1359.                 pbh7.BackColor = Color.BlanchedAlmond
  1360.             End If
  1361.             If Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True Then
  1362.                 pba1.BackColor = Color.BlanchedAlmond
  1363.             End If
  1364.             If (Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True) Then
  1365.                 pbc1.BackColor = Color.BlanchedAlmond
  1366.             End If
  1367.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  1368.                 pbd1.BackColor = Color.BlanchedAlmond
  1369.             End If
  1370.             If (Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  1371.                 pbe1.BackColor = Color.BlanchedAlmond
  1372.             End If
  1373.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" Then
  1374.                 pbf1.BackColor = Color.BlanchedAlmond
  1375.             End If
  1376.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  1377.                 pbg1.BackColor = Color.BlanchedAlmond
  1378.             End If
  1379.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  1380.                 pbh1.BackColor = Color.BlanchedAlmond
  1381.             End If
  1382.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  1383.                 pbb2.BackColor = Color.BlanchedAlmond
  1384.             End If
  1385.             If (Position(2, 1) = "0" Or CheckEnemy("black", 2, 1) = True) And CheckPiece(1, 1) = "0" Then
  1386.                 pbb3.BackColor = Color.BlanchedAlmond
  1387.             End If
  1388.             If (Position(3, 1) = "0" Or CheckEnemy("black", 3, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" Then
  1389.                 pbb4.BackColor = Color.BlanchedAlmond
  1390.             End If
  1391.             If (Position(4, 1) = "0" Or CheckEnemy("black", 4, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" Then
  1392.                 pbb5.BackColor = Color.BlanchedAlmond
  1393.             End If
  1394.             If (Position(5, 1) = "0" Or CheckEnemy("black", 5, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" Then
  1395.                 pbb6.BackColor = Color.BlanchedAlmond
  1396.             End If
  1397.             If (Position(6, 1) = "0" Or CheckEnemy("black", 6, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" Then
  1398.                 pbb7.BackColor = Color.BlanchedAlmond
  1399.             End If
  1400.             If (Position(7, 1) = "0" Or CheckEnemy("black", 7, 1) = True) And CheckPiece(1, 1) = "0" And CheckPiece(2, 1) = "0" And CheckPiece(3, 1) = "0" And CheckPiece(4, 1) = "0" And CheckPiece(5, 1) = "0" And CheckPiece(6, 1) = "0" Then
  1401.                 pbb8.BackColor = Color.BlanchedAlmond
  1402.             End If
  1403.         ElseIf piece = "whking" Then
  1404.             square = "b1"
  1405.             PieceToBeMoved = "whking"
  1406.             If Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True Then
  1407.                 pba1.BackColor = Color.BlanchedAlmond
  1408.             End If
  1409.             If Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True Then
  1410.                 pbc1.BackColor = Color.BlanchedAlmond
  1411.             End If
  1412.             If Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True Then
  1413.                 pba2.BackColor = Color.BlanchedAlmond
  1414.             End If
  1415.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  1416.                 pbb2.BackColor = Color.BlanchedAlmond
  1417.             End If
  1418.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  1419.                 pba1.BackColor = Color.BlanchedAlmond
  1420.             End If
  1421.         ElseIf piece = "blking" Then
  1422.             square = "b1"
  1423.             PieceToBeMoved = "blking"
  1424.             If Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True Then
  1425.                 pba1.BackColor = Color.BlanchedAlmond
  1426.             End If
  1427.             If Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True Then
  1428.                 pbc1.BackColor = Color.BlanchedAlmond
  1429.             End If
  1430.             If Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True Then
  1431.                 pba2.BackColor = Color.BlanchedAlmond
  1432.             End If
  1433.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  1434.                 pbb2.BackColor = Color.BlanchedAlmond
  1435.             End If
  1436.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  1437.                 pba1.BackColor = Color.BlanchedAlmond
  1438.             End If
  1439.         End If
  1440.     End Sub
  1441.  
  1442.     Private Sub pbc1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc1.Click
  1443.         piece = CheckPiece(0, 2)
  1444.         If pbc1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  1445.             If PieceToBeMoved = "blpawn" Then
  1446.                 pbc1.Image = Image.FromFile("blackqueen.cur")
  1447.                 Position(0, 2) = "blqueen"
  1448.                 Call OriginalColour()
  1449.                 Select Case square
  1450.                     Case "b2"
  1451.                         pbb2.Image = Nothing
  1452.                         Position(1, 1) = "0"
  1453.                     Case "d2"
  1454.                         pbd2.Image = Nothing
  1455.                         Position(1, 3) = "0"
  1456.                     Case "c2"
  1457.                         pbc2.Image = Nothing
  1458.                         Position(1, 2) = "0"
  1459.                 End Select
  1460.             ElseIf PieceToBeMoved = "whrook" Then
  1461.                 pbc1.Image = Image.FromFile("whiterook.cur")
  1462.                 Call OriginalColour()
  1463.                 Position(0, 2) = "whrook"
  1464.                 Select Case square
  1465.                     Case "a1"
  1466.                         Position(0, 0) = "0"
  1467.                         pba1.Image = Nothing
  1468.                     Case "b1"
  1469.                         Position(0, 1) = "0"
  1470.                         pbb1.Image = Nothing
  1471.                     Case "d1"
  1472.                         Position(0, 3) = "0"
  1473.                         pbd1.Image = Nothing
  1474.                     Case "e1"
  1475.                         Position(0, 4) = "0"
  1476.                         pbe1.Image = Nothing
  1477.                     Case "f1"
  1478.                         Position(0, 5) = "0"
  1479.                         pbf1.Image = Nothing
  1480.                     Case "g1"
  1481.                         Position(0, 6) = "0"
  1482.                         pbg1.Image = Nothing
  1483.                     Case "h1"
  1484.                         Position(0, 7) = "0"
  1485.                         pbh1.Image = Nothing
  1486.                     Case "c2"
  1487.                         Position(1, 2) = "0"
  1488.                         pbc2.Image = Nothing
  1489.                     Case "c3"
  1490.                         Position(2, 2) = "0"
  1491.                         pbc3.Image = Nothing
  1492.                     Case "c4"
  1493.                         Position(3, 2) = "0"
  1494.                         pbc4.Image = Nothing
  1495.                     Case "c5"
  1496.                         Position(4, 2) = "0"
  1497.                         pbc5.Image = Nothing
  1498.                     Case "c6"
  1499.                         Position(5, 2) = "0"
  1500.                         pbc6.Image = Nothing
  1501.                     Case "c7"
  1502.                         Position(6, 2) = "0"
  1503.                         pbc7.Image = Nothing
  1504.                     Case "c8"
  1505.                         Position(7, 2) = "0"
  1506.                         pbc8.Image = Nothing
  1507.                 End Select
  1508.             ElseIf PieceToBeMoved = "blrook" Then
  1509.                 pbc1.Image = Image.FromFile("blackrook.cur")
  1510.                 Call OriginalColour()
  1511.                 Position(0, 2) = "blrook"
  1512.                 Select Case square
  1513.                     Case "a1"
  1514.                         Position(0, 0) = "0"
  1515.                         pba1.Image = Nothing
  1516.                     Case "b1"
  1517.                         Position(0, 1) = "0"
  1518.                         pbb1.Image = Nothing
  1519.                     Case "d1"
  1520.                         Position(0, 3) = "0"
  1521.                         pbd1.Image = Nothing
  1522.                     Case "e1"
  1523.                         Position(0, 4) = "0"
  1524.                         pbe1.Image = Nothing
  1525.                     Case "f1"
  1526.                         Position(0, 5) = "0"
  1527.                         pbf1.Image = Nothing
  1528.                     Case "g1"
  1529.                         Position(0, 6) = "0"
  1530.                         pbg1.Image = Nothing
  1531.                     Case "h1"
  1532.                         Position(0, 7) = "0"
  1533.                         pbh1.Image = Nothing
  1534.                     Case "c2"
  1535.                         Position(1, 2) = "0"
  1536.                         pbc2.Image = Nothing
  1537.                     Case "c3"
  1538.                         Position(2, 2) = "0"
  1539.                         pbc3.Image = Nothing
  1540.                     Case "c4"
  1541.                         Position(3, 2) = "0"
  1542.                         pbc4.Image = Nothing
  1543.                     Case "c5"
  1544.                         Position(4, 2) = "0"
  1545.                         pbc5.Image = Nothing
  1546.                     Case "c6"
  1547.                         Position(5, 2) = "0"
  1548.                         pbc6.Image = Nothing
  1549.                     Case "c7"
  1550.                         Position(6, 2) = "0"
  1551.                         pbc7.Image = Nothing
  1552.                     Case "c8"
  1553.                         Position(7, 2) = "0"
  1554.                         pbc8.Image = Nothing
  1555.                 End Select
  1556.             ElseIf PieceToBeMoved = "whknight" Then
  1557.                 pbc1.Image = Image.FromFile("whiteknight.cur")
  1558.                 Position(0, 2) = "whknight"
  1559.                 Call OriginalColour()
  1560.                 Select Case square
  1561.                     Case "a2"
  1562.                         Position(1, 0) = "0"
  1563.                         pba2.Image = Nothing
  1564.                     Case "b3"
  1565.                         Position(2, 1) = "0"
  1566.                         pbb3.Image = Nothing
  1567.                     Case "d3"
  1568.                         Position(2, 3) = "0"
  1569.                         pbd3.Image = Nothing
  1570.                     Case "e2"
  1571.                         Position(1, 2) = "0"
  1572.                         pbe2.Image = Nothing
  1573.                 End Select
  1574.             ElseIf PieceToBeMoved = "blknight" Then
  1575.                 pbc1.Image = Image.FromFile("blackknight.cur")
  1576.                 Position(0, 2) = "blknight"
  1577.                 Call OriginalColour()
  1578.                 Select Case square
  1579.                     Case "a2"
  1580.                         Position(1, 0) = "0"
  1581.                         pba2.Image = Nothing
  1582.                     Case "b3"
  1583.                         Position(2, 1) = "0"
  1584.                         pbb3.Image = Nothing
  1585.                     Case "d3"
  1586.                         Position(2, 3) = "0"
  1587.                         pbd3.Image = Nothing
  1588.                     Case "e2"
  1589.                         Position(1, 2) = "0"
  1590.                         pbe2.Image = Nothing
  1591.                 End Select
  1592.             ElseIf PieceToBeMoved = "whbishop" Then
  1593.                 pbc1.Image = Image.FromFile("whitebishop.cur")
  1594.                 Call OriginalColour()
  1595.                 Position(0, 2) = "whbishop"
  1596.                 Select Case square
  1597.                     Case "b2"
  1598.                         Position(1, 1) = "0"
  1599.                         pbb2.Image = Nothing
  1600.                     Case "a3"
  1601.                         Position(2, 0) = "0"
  1602.                         pba3.Image = Nothing
  1603.                     Case "d2"
  1604.                         Position(1, 3) = "0"
  1605.                         pbd2.Image = Nothing
  1606.                     Case "e3"
  1607.                         Position(2, 4) = "0"
  1608.                         pbe3.Image = Nothing
  1609.                     Case "f4"
  1610.                         Position(3, 5) = "0"
  1611.                         pbf4.Image = Nothing
  1612.                     Case "g5"
  1613.                         Position(4, 6) = "0"
  1614.                         pbg5.Image = Nothing
  1615.                     Case "h6"
  1616.                         Position(5, 7) = "0"
  1617.                         pbh6.Image = Nothing
  1618.                 End Select
  1619.             ElseIf PieceToBeMoved = "blbishop" Then
  1620.                 pbc1.Image = Image.FromFile("blackbishop.cur")
  1621.                 Call OriginalColour()
  1622.                 Position(0, 2) = "blbishop"
  1623.                 Select Case square
  1624.                     Case "b2"
  1625.                         Position(1, 1) = "0"
  1626.                         pbb2.Image = Nothing
  1627.                     Case "a3"
  1628.                         Position(2, 0) = "0"
  1629.                         pba3.Image = Nothing
  1630.                     Case "d2"
  1631.                         Position(1, 3) = "0"
  1632.                         pbd2.Image = Nothing
  1633.                     Case "e3"
  1634.                         Position(2, 4) = "0"
  1635.                         pbe3.Image = Nothing
  1636.                     Case "f4"
  1637.                         Position(3, 5) = "0"
  1638.                         pbf4.Image = Nothing
  1639.                     Case "g5"
  1640.                         Position(4, 6) = "0"
  1641.                         pbg5.Image = Nothing
  1642.                     Case "h6"
  1643.                         Position(5, 7) = "0"
  1644.                         pbh6.Image = Nothing
  1645.                 End Select
  1646.             ElseIf PieceToBeMoved = "whqueen" Then
  1647.                 pbc1.Image = Image.FromFile("whitequeen.cur")
  1648.                 Call OriginalColour()
  1649.                 Position(0, 2) = "whqueen"
  1650.                 Select square
  1651.                     Case "b2"
  1652.                         Position(1, 1) = "0"
  1653.                         pbb2.Image = Nothing
  1654.                     Case "a3"
  1655.                         Position(2, 0) = "0"
  1656.                         pba3.Image = Nothing
  1657.                     Case "d2"
  1658.                         Position(1, 3) = "0"
  1659.                         pbd2.Image = Nothing
  1660.                     Case "e3"
  1661.                         Position(2, 4) = "0"
  1662.                         pbe3.Image = Nothing
  1663.                     Case "f4"
  1664.                         Position(3, 5) = "0"
  1665.                         pbf4.Image = Nothing
  1666.                     Case "g5"
  1667.                         Position(4, 6) = "0"
  1668.                         pbg5.Image = Nothing
  1669.                     Case "h6"
  1670.                         Position(5, 7) = "0"
  1671.                         pbh6.Image = Nothing
  1672.                     Case "a1"
  1673.                         Position(0, 0) = "0"
  1674.                         pba1.Image = Nothing
  1675.                     Case "b1"
  1676.                         Position(0, 1) = "0"
  1677.                         pbb1.Image = Nothing
  1678.                     Case "d1"
  1679.                         Position(0, 3) = "0"
  1680.                         pbd1.Image = Nothing
  1681.                     Case "e1"
  1682.                         Position(0, 4) = "0"
  1683.                         pbe1.Image = Nothing
  1684.                     Case "f1"
  1685.                         Position(0, 5) = "0"
  1686.                         pbf1.Image = Nothing
  1687.                     Case "g1"
  1688.                         Position(0, 6) = "0"
  1689.                         pbg1.Image = Nothing
  1690.                     Case "h1"
  1691.                         Position(0, 7) = "0"
  1692.                         pbh1.Image = Nothing
  1693.                     Case "c2"
  1694.                         Position(1, 2) = "0"
  1695.                         pbc2.Image = Nothing
  1696.                     Case "c3"
  1697.                         Position(2, 2) = "0"
  1698.                         pbc3.Image = Nothing
  1699.                     Case "c4"
  1700.                         Position(3, 2) = "0"
  1701.                         pbc4.Image = Nothing
  1702.                     Case "c5"
  1703.                         Position(4, 2) = "0"
  1704.                         pbc5.Image = Nothing
  1705.                     Case "c6"
  1706.                         Position(5, 2) = "0"
  1707.                         pbc6.Image = Nothing
  1708.                     Case "c7"
  1709.                         Position(6, 2) = "0"
  1710.                         pbc7.Image = Nothing
  1711.                     Case "c8"
  1712.                         Position(7, 2) = "0"
  1713.                         pbc8.Image = Nothing
  1714.                 End Select
  1715.             ElseIf PieceToBeMoved = "blqueen" Then
  1716.                 pbc1.Image = Image.FromFile("blackqueen.cur")
  1717.                 Call OriginalColour()
  1718.                 Position(0, 2) = "blqueen"
  1719.                 Select Case square
  1720.                     Case "b2"
  1721.                         Position(1, 1) = "0"
  1722.                         pbb2.Image = Nothing
  1723.                     Case "a3"
  1724.                         Position(2, 0) = "0"
  1725.                         pba3.Image = Nothing
  1726.                     Case "d2"
  1727.                         Position(1, 3) = "0"
  1728.                         pbd2.Image = Nothing
  1729.                     Case "e3"
  1730.                         Position(2, 4) = "0"
  1731.                         pbe3.Image = Nothing
  1732.                     Case "f4"
  1733.                         Position(3, 5) = "0"
  1734.                         pbf4.Image = Nothing
  1735.                     Case "g5"
  1736.                         Position(4, 6) = "0"
  1737.                         pbg5.Image = Nothing
  1738.                     Case "h6"
  1739.                         Position(5, 7) = "0"
  1740.                         pbh6.Image = Nothing
  1741.                     Case "a1"
  1742.                         Position(0, 0) = "0"
  1743.                         pba1.Image = Nothing
  1744.                     Case "b1"
  1745.                         Position(0, 1) = "0"
  1746.                         pbb1.Image = Nothing
  1747.                     Case "d1"
  1748.                         Position(0, 3) = "0"
  1749.                         pbd1.Image = Nothing
  1750.                     Case "e1"
  1751.                         Position(0, 4) = "0"
  1752.                         pbe1.Image = Nothing
  1753.                     Case "f1"
  1754.                         Position(0, 5) = "0"
  1755.                         pbf1.Image = Nothing
  1756.                     Case "g1"
  1757.                         Position(0, 6) = "0"
  1758.                         pbg1.Image = Nothing
  1759.                     Case "h1"
  1760.                         Position(0, 7) = "0"
  1761.                         pbh1.Image = Nothing
  1762.                     Case "c2"
  1763.                         Position(1, 2) = "0"
  1764.                         pbc2.Image = Nothing
  1765.                     Case "c3"
  1766.                         Position(2, 2) = "0"
  1767.                         pbc3.Image = Nothing
  1768.                     Case "c4"
  1769.                         Position(3, 2) = "0"
  1770.                         pbc4.Image = Nothing
  1771.                     Case "c5"
  1772.                         Position(4, 2) = "0"
  1773.                         pbc5.Image = Nothing
  1774.                     Case "c6"
  1775.                         Position(5, 2) = "0"
  1776.                         pbc6.Image = Nothing
  1777.                     Case "c7"
  1778.                         Position(6, 2) = "0"
  1779.                         pbc7.Image = Nothing
  1780.                     Case "c8"
  1781.                         Position(7, 2) = "0"
  1782.                         pbc8.Image = Nothing
  1783.                 End Select
  1784.             ElseIf PieceToBeMoved = "whking" Then
  1785.                 pbc1.Image = Image.FromFile("whiteking.cur")
  1786.                 Call OriginalColour()
  1787.                 Position(0, 2) = "whking"
  1788.                 Select Case square
  1789.                     Case "b1"
  1790.                         pbb1.Image = Nothing
  1791.                         Position(0, 1) = "0"
  1792.                     Case "d1"
  1793.                         pbd1.Image = Nothing
  1794.                         Position(0, 3) = "0"
  1795.                     Case "c2"
  1796.                         pbc2.Image = Nothing
  1797.                         Position(1, 2) = "0"
  1798.                     Case "b2"
  1799.                         pbb2.Image = Nothing
  1800.                         Position(1, 1) = "0"
  1801.                     Case "d2"
  1802.                         Position(1, 3) = "0"
  1803.                         pbd2.Image = Nothing
  1804.                 End Select
  1805.             ElseIf PieceToBeMoved = "blking" Then
  1806.                 pbc1.Image = Image.FromFile("blackking.cur")
  1807.                 Call OriginalColour()
  1808.                 Position(0, 2) = "blking"
  1809.                 Select Case square
  1810.                     Case "b1"
  1811.                         pbb1.Image = Nothing
  1812.                         Position(0, 1) = "0"
  1813.                     Case "d1"
  1814.                         pbd1.Image = Nothing
  1815.                         Position(0, 3) = "0"
  1816.                     Case "c2"
  1817.                         pbc2.Image = Nothing
  1818.                         Position(1, 2) = "0"
  1819.                     Case "b2"
  1820.                         pbb2.Image = Nothing
  1821.                         Position(1, 1) = "0"
  1822.                     Case "d2"
  1823.                         Position(1, 3) = "0"
  1824.                         pbd2.Image = Nothing
  1825.                 End Select
  1826.             End If
  1827.         End If
  1828.         If piece = "whknight" Then
  1829.             square = "c1"
  1830.             PieceToBeMoved = "whknight"
  1831.             If Position(2, 1) = "0" Or CheckEnemy("white", 2, 1) = True Then
  1832.                 pbb3.BackColor = Color.BlanchedAlmond
  1833.             End If
  1834.             If Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True Then
  1835.                 pba2.BackColor = Color.BlanchedAlmond
  1836.             End If
  1837.             If Position(2, 3) = "0" Or CheckEnemy("white", 2, 3) = True Then
  1838.                 pbd3.BackColor = Color.BlanchedAlmond
  1839.             End If
  1840.             If Position(1, 4) = "0" Or CheckEnemy("white", 1, 4) = True Then
  1841.                 pbe4.BackColor = Color.BlanchedAlmond
  1842.             End If
  1843.         ElseIf piece = "blknight" Then
  1844.             square = "c1"
  1845.             PieceToBeMoved = "blknight"
  1846.             If Position(2, 1) = "0" Or CheckEnemy("black", 2, 1) = True Then
  1847.                 pbb3.BackColor = Color.BlanchedAlmond
  1848.             End If
  1849.             If Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True Then
  1850.                 pba2.BackColor = Color.BlanchedAlmond
  1851.             End If
  1852.             If Position(2, 3) = "0" Or CheckEnemy("black", 2, 3) = True Then
  1853.                 pbd3.BackColor = Color.BlanchedAlmond
  1854.             End If
  1855.             If Position(1, 4) = "0" Or CheckEnemy("black", 1, 4) = True Then
  1856.                 pbe4.BackColor = Color.BlanchedAlmond
  1857.             End If
  1858.         ElseIf piece = "whrook" Then
  1859.             square = "c1"
  1860.             PieceToBeMoved = "whrook"
  1861.             If Position(0, 1) = "0" Or CheckEnemy("white", 0, 1) = True Then
  1862.                 pbb1.BackColor = Color.BlanchedAlmond
  1863.             End If
  1864.             If (Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True) And CheckPiece(0, 1) = "0" Then
  1865.                 pba1.BackColor = Color.BlanchedAlmond
  1866.             End If
  1867.             If Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True Then
  1868.                 pbc1.BackColor = Color.BlanchedAlmond
  1869.             End If
  1870.             If (Position(0, 3) = "0" Or CheckEnemy("white", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  1871.                 pbd1.BackColor = Color.BlanchedAlmond
  1872.             End If
  1873.             If (Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  1874.                 pbe1.BackColor = Color.BlanchedAlmond
  1875.             End If
  1876.             If (Position(0, 5) = "0" Or CheckEnemy("white", 0, 5) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" Then
  1877.                 pbf1.BackColor = Color.BlanchedAlmond
  1878.             End If
  1879.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" Then
  1880.                 pbf1.BackColor = Color.BlanchedAlmond
  1881.             End If
  1882.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  1883.                 pbf1.BackColor = Color.BlanchedAlmond
  1884.             End If
  1885.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  1886.                 pbc2.BackColor = Color.BlanchedAlmond
  1887.             End If
  1888.             If (Position(2, 2) = "0" Or CheckEnemy("white", 2, 2) = True) And CheckPiece(1, 2) = "0" Then
  1889.                 pbc3.BackColor = Color.BlanchedAlmond
  1890.             End If
  1891.             If (Position(3, 2) = "0" Or CheckEnemy("white", 3, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" Then
  1892.                 pbc4.BackColor = Color.Black
  1893.             End If
  1894.             If (Position(4, 2) = "0" Or CheckEnemy("white", 4, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" Then
  1895.                 pbc5.BackColor = Color.Black
  1896.             End If
  1897.             If (Position(5, 2) = "0" Or CheckEnemy("white", 5, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" Then
  1898.                 pbc6.BackColor = Color.Black
  1899.             End If
  1900.             If (Position(6, 2) = "0" Or CheckEnemy("white", 6, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" Then
  1901.                 pbc7.BackColor = Color.Black
  1902.             End If
  1903.             If (Position(7, 2) = "0" Or CheckEnemy("white", 7, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" And CheckPiece(6, 2) = "0" Then
  1904.                 pbc8.BackColor = Color.Black
  1905.             End If
  1906.         ElseIf piece = "blrook" Then
  1907.             square = "c1"
  1908.             PieceToBeMoved = "blrook"
  1909.             If Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True Then
  1910.                 pbb1.BackColor = Color.BlanchedAlmond
  1911.             End If
  1912.             If (Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True) And CheckPiece(0, 1) = "0" Then
  1913.                 pba1.BackColor = Color.BlanchedAlmond
  1914.             End If
  1915.             If Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True Then
  1916.                 pbc1.BackColor = Color.BlanchedAlmond
  1917.             End If
  1918.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  1919.                 pbd1.BackColor = Color.BlanchedAlmond
  1920.             End If
  1921.             If (Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  1922.                 pbe1.BackColor = Color.BlanchedAlmond
  1923.             End If
  1924.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" Then
  1925.                 pbf1.BackColor = Color.BlanchedAlmond
  1926.             End If
  1927.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" Then
  1928.                 pbf1.BackColor = Color.BlanchedAlmond
  1929.             End If
  1930.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  1931.                 pbf1.BackColor = Color.BlanchedAlmond
  1932.             End If
  1933.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  1934.                 pbc2.BackColor = Color.BlanchedAlmond
  1935.             End If
  1936.             If (Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True) And CheckPiece(1, 2) = "0" Then
  1937.                 pbc3.BackColor = Color.BlanchedAlmond
  1938.             End If
  1939.             If (Position(3, 2) = "0" Or CheckEnemy("black", 3, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" Then
  1940.                 pbc4.BackColor = Color.Black
  1941.             End If
  1942.             If (Position(4, 2) = "0" Or CheckEnemy("black", 4, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" Then
  1943.                 pbc5.BackColor = Color.Black
  1944.             End If
  1945.             If (Position(5, 2) = "0" Or CheckEnemy("black", 5, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" Then
  1946.                 pbc6.BackColor = Color.Black
  1947.             End If
  1948.             If (Position(6, 2) = "0" Or CheckEnemy("black", 6, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" Then
  1949.                 pbc7.BackColor = Color.Black
  1950.             End If
  1951.             If (Position(7, 2) = "0" Or CheckEnemy("black", 7, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" And CheckPiece(6, 2) = "0" Then
  1952.                 pbc8.BackColor = Color.Black
  1953.             End If
  1954.         ElseIf piece = "whbishop" Then
  1955.             PieceToBeMoved = "whishop"
  1956.             square = "c1"
  1957.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  1958.                 pbb2.BackColor = Color.BlanchedAlmond
  1959.             End If
  1960.             If (Position(2, 0) = "0" Or CheckEnemy("white", 2, 0) = True) And CheckPiece(1, 1) = "0" Then
  1961.                 pba3.BackColor = Color.BlanchedAlmond
  1962.             End If
  1963.             If Position(1, 3) = "0" Or CheckEnemy("white", 1, 3) = True Then
  1964.                 pbd2.BackColor = Color.BlanchedAlmond
  1965.             End If
  1966.             If (Position(2, 4) = "0" Or CheckEnemy("white", 2, 4) = True) And CheckPiece(1, 3) = "0" Then
  1967.                 pbe3.BackColor = Color.BlanchedAlmond
  1968.             End If
  1969.             If (Position(3, 5) = "0" Or CheckEnemy("white", 3, 5) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" Then
  1970.                 pbf4.BackColor = Color.BlanchedAlmond
  1971.             End If
  1972.             If (Position(4, 6) = "0" Or CheckEnemy("white", 4, 6) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" Then
  1973.                 pbg5.BackColor = Color.BlanchedAlmond
  1974.             End If
  1975.             If (Position(5, 7) = "0" Or CheckEnemy("white", 5, 7) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" And CheckPiece(4, 6) = "0" Then
  1976.                 pbh6.BackColor = Color.BlanchedAlmond
  1977.             End If
  1978.         ElseIf piece = "blbishop" Then
  1979.             PieceToBeMoved = "blbishop"
  1980.             square = "c1"
  1981.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  1982.                 pbb2.BackColor = Color.BlanchedAlmond
  1983.             End If
  1984.             If (Position(2, 0) = "0" Or CheckEnemy("black", 2, 0) = True) And CheckPiece(1, 1) = "0" Then
  1985.                 pba3.BackColor = Color.BlanchedAlmond
  1986.             End If
  1987.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  1988.                 pbd2.BackColor = Color.BlanchedAlmond
  1989.             End If
  1990.             If (Position(2, 4) = "0" Or CheckEnemy("black", 2, 4) = True) And CheckPiece(1, 3) = "0" Then
  1991.                 pbe3.BackColor = Color.BlanchedAlmond
  1992.             End If
  1993.             If (Position(3, 5) = "0" Or CheckEnemy("black", 3, 5) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" Then
  1994.                 pbf4.BackColor = Color.BlanchedAlmond
  1995.             End If
  1996.             If (Position(4, 6) = "0" Or CheckEnemy("black", 4, 6) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" Then
  1997.                 pbg5.BackColor = Color.BlanchedAlmond
  1998.             End If
  1999.             If (Position(5, 7) = "0" Or CheckEnemy("black", 5, 7) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" And CheckPiece(4, 6) = "0" Then
  2000.                 pbh6.BackColor = Color.BlanchedAlmond
  2001.             End If
  2002.  
  2003.         ElseIf piece = "blqueen" Then
  2004.             PieceToBeMoved = "blqueen"
  2005.             square = "c1"
  2006.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  2007.                 pbb2.BackColor = Color.BlanchedAlmond
  2008.             End If
  2009.             If (Position(2, 0) = "0" Or CheckEnemy("black", 2, 0) = True) And CheckPiece(1, 1) = "0" Then
  2010.                 pba3.BackColor = Color.BlanchedAlmond
  2011.             End If
  2012.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  2013.                 pbd2.BackColor = Color.BlanchedAlmond
  2014.             End If
  2015.             If (Position(2, 4) = "0" Or CheckEnemy("black", 2, 4) = True) And CheckPiece(1, 3) = "0" Then
  2016.                 pbe3.BackColor = Color.BlanchedAlmond
  2017.             End If
  2018.             If (Position(3, 5) = "0" Or CheckEnemy("black", 3, 5) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" Then
  2019.                 pbf4.BackColor = Color.BlanchedAlmond
  2020.             End If
  2021.             If (Position(4, 6) = "0" Or CheckEnemy("black", 4, 6) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" Then
  2022.                 pbg5.BackColor = Color.BlanchedAlmond
  2023.             End If
  2024.             If (Position(5, 7) = "0" Or CheckEnemy("black", 5, 7) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" And CheckPiece(4, 6) = "0" Then
  2025.                 pbh6.BackColor = Color.BlanchedAlmond
  2026.             End If
  2027.             If Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True Then
  2028.                 pbb1.BackColor = Color.BlanchedAlmond
  2029.             End If
  2030.             If (Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True) And CheckPiece(0, 1) = "0" Then
  2031.                 pba1.BackColor = Color.BlanchedAlmond
  2032.             End If
  2033.             If Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True Then
  2034.                 pbc1.BackColor = Color.BlanchedAlmond
  2035.             End If
  2036.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  2037.                 pbd1.BackColor = Color.BlanchedAlmond
  2038.             End If
  2039.             If (Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  2040.                 pbe1.BackColor = Color.BlanchedAlmond
  2041.             End If
  2042.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" Then
  2043.                 pbf1.BackColor = Color.BlanchedAlmond
  2044.             End If
  2045.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" Then
  2046.                 pbf1.BackColor = Color.BlanchedAlmond
  2047.             End If
  2048.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  2049.                 pbf1.BackColor = Color.BlanchedAlmond
  2050.             End If
  2051.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  2052.                 pbc2.BackColor = Color.BlanchedAlmond
  2053.             End If
  2054.             If (Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True) And CheckPiece(1, 2) = "0" Then
  2055.                 pbc3.BackColor = Color.BlanchedAlmond
  2056.             End If
  2057.             If (Position(3, 2) = "0" Or CheckEnemy("black", 3, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" Then
  2058.                 pbc4.BackColor = Color.Black
  2059.             End If
  2060.             If (Position(4, 2) = "0" Or CheckEnemy("black", 4, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" Then
  2061.                 pbc5.BackColor = Color.Black
  2062.             End If
  2063.             If (Position(5, 2) = "0" Or CheckEnemy("black", 5, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" Then
  2064.                 pbc6.BackColor = Color.Black
  2065.             End If
  2066.             If (Position(6, 2) = "0" Or CheckEnemy("black", 6, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" Then
  2067.                 pbc7.BackColor = Color.Black
  2068.             End If
  2069.             If (Position(7, 2) = "0" Or CheckEnemy("black", 7, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" And CheckPiece(6, 2) = "0" Then
  2070.                 pbc8.BackColor = Color.Black
  2071.             End If
  2072.         ElseIf piece = "whqueen" Then
  2073.             square = "c1"
  2074.             PieceToBeMoved = "whqueen"
  2075.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  2076.                 pbb2.BackColor = Color.BlanchedAlmond
  2077.             End If
  2078.             If (Position(2, 0) = "0" Or CheckEnemy("black", 2, 0) = True) And CheckPiece(1, 1) = "0" Then
  2079.                 pba3.BackColor = Color.BlanchedAlmond
  2080.             End If
  2081.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  2082.                 pbd2.BackColor = Color.BlanchedAlmond
  2083.             End If
  2084.             If (Position(2, 4) = "0" Or CheckEnemy("black", 2, 4) = True) And CheckPiece(1, 3) = "0" Then
  2085.                 pbe3.BackColor = Color.BlanchedAlmond
  2086.             End If
  2087.             If (Position(3, 5) = "0" Or CheckEnemy("black", 3, 5) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" Then
  2088.                 pbf4.BackColor = Color.BlanchedAlmond
  2089.             End If
  2090.             If (Position(4, 6) = "0" Or CheckEnemy("black", 4, 6) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" Then
  2091.                 pbg5.BackColor = Color.BlanchedAlmond
  2092.             End If
  2093.             If (Position(5, 7) = "0" Or CheckEnemy("black", 5, 7) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 4) = "0" And CheckPiece(3, 5) = "0" And CheckPiece(4, 6) = "0" Then
  2094.                 pbh6.BackColor = Color.BlanchedAlmond
  2095.             End If
  2096.             If Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True Then
  2097.                 pbb1.BackColor = Color.BlanchedAlmond
  2098.             End If
  2099.             If (Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True) And CheckPiece(0, 1) = "0" Then
  2100.                 pba1.BackColor = Color.BlanchedAlmond
  2101.             End If
  2102.             If Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True Then
  2103.                 pbc1.BackColor = Color.BlanchedAlmond
  2104.             End If
  2105.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) And CheckPiece(0, 2) = "0" Then
  2106.                 pbd1.BackColor = Color.BlanchedAlmond
  2107.             End If
  2108.             If (Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True) And CheckPiece(0, 2) = "0" And CheckPiece(0, 3) = "0" Then
  2109.                 pbe1.BackColor = Color.BlanchedAlmond
  2110.             End If
  2111.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" Then
  2112.                 pbf1.BackColor = Color.BlanchedAlmond
  2113.             End If
  2114.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" Then
  2115.                 pbf1.BackColor = Color.BlanchedAlmond
  2116.             End If
  2117.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 3) = "0" And CheckPiece(0, 4) = "0" And CheckPiece(0, 2) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  2118.                 pbf1.BackColor = Color.BlanchedAlmond
  2119.             End If
  2120.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  2121.                 pbc2.BackColor = Color.BlanchedAlmond
  2122.             End If
  2123.             If (Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True) And CheckPiece(1, 2) = "0" Then
  2124.                 pbc3.BackColor = Color.BlanchedAlmond
  2125.             End If
  2126.             If (Position(3, 2) = "0" Or CheckEnemy("black", 3, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" Then
  2127.                 pbc4.BackColor = Color.Black
  2128.             End If
  2129.             If (Position(4, 2) = "0" Or CheckEnemy("black", 4, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" Then
  2130.                 pbc5.BackColor = Color.Black
  2131.             End If
  2132.             If (Position(5, 2) = "0" Or CheckEnemy("black", 5, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" Then
  2133.                 pbc6.BackColor = Color.Black
  2134.             End If
  2135.             If (Position(6, 2) = "0" Or CheckEnemy("black", 6, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" Then
  2136.                 pbc7.BackColor = Color.Black
  2137.             End If
  2138.             If (Position(7, 2) = "0" Or CheckEnemy("black", 7, 2) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(4, 2) = "0" And CheckPiece(5, 2) = "0" And CheckPiece(6, 2) = "0" Then
  2139.                 pbc8.BackColor = Color.Black
  2140.             End If
  2141.         ElseIf piece = "whking" Then
  2142.             square = "c1"
  2143.             PieceToBeMoved = "whking"
  2144.             If Position(0, 1) = "0" Or CheckEnemy("white", 0, 1) = True Then
  2145.                 pbb1.BackColor = Color.BlanchedAlmond
  2146.             End If
  2147.             If (Position(0, 3) = "0" Or CheckEnemy("white", 0, 3) = True) Then
  2148.                 pbd1.BackColor = Color.BlanchedAlmond
  2149.             End If
  2150.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  2151.                 pbc2.BackColor = Color.BlanchedAlmond
  2152.             End If
  2153.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  2154.                 pbb2.BackColor = Color.BlanchedAlmond
  2155.             End If
  2156.             If Position(1, 3) = "0" Or CheckEnemy("white", 1, 3) = True Then
  2157.                 pbd2.BackColor = Color.BlanchedAlmond
  2158.             End If
  2159.         ElseIf piece = "blking" Then
  2160.             square = "c1"
  2161.             PieceToBeMoved = "blking"
  2162.             If Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True Then
  2163.                 pbb1.BackColor = Color.BlanchedAlmond
  2164.             End If
  2165.             If (Position(0, 3) = "0" Or CheckEnemy("black", 0, 3) = True) Then
  2166.                 pbd1.BackColor = Color.BlanchedAlmond
  2167.             End If
  2168.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  2169.                 pbc2.BackColor = Color.BlanchedAlmond
  2170.             End If
  2171.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  2172.                 pbb2.BackColor = Color.BlanchedAlmond
  2173.             End If
  2174.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  2175.                 pbd2.BackColor = Color.BlanchedAlmond
  2176.             End If
  2177.         End If
  2178.     End Sub
  2179.  
  2180.     Private Sub pbd1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd1.Click
  2181.         piece = CheckPiece(0, 3)
  2182.         If pbd1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  2183.             If PieceToBeMoved = "blpawn" Then
  2184.                 pbd1.Image = Image.FromFile("blackqueen.cur")
  2185.                 Position(0, 3) = "blqueen"
  2186.                 Call OriginalColour()
  2187.                 Select Case square
  2188.                     Case "d2"
  2189.                         pbd2.Image = Nothing
  2190.                         Position(1, 3) = "0"
  2191.                     Case "c2"
  2192.                         pbc2.Image = Nothing
  2193.                         Position(1, 2) = "0"
  2194.                     Case "e2"
  2195.                         pbe2.Image = Nothing
  2196.                         Position(1, 4) = "0"
  2197.                 End Select
  2198.             ElseIf PieceToBeMoved = "whrook" Then
  2199.                 pbd1.Image = Image.FromFile("whiterook.cur")
  2200.                 Position(0, 3) = "whrook"
  2201.                 Call OriginalColour()
  2202.                 Select Case square
  2203.                     Case "d2"
  2204.                         pbd2.Image = Nothing
  2205.                         Position(1, 3) = "0"
  2206.                     Case "d3"
  2207.                         pbd3.Image = Nothing
  2208.                         Position(2, 3) = "0"
  2209.                     Case "d4"
  2210.                         pbd4.Image = Nothing
  2211.                         Position(3, 3) = "0"
  2212.                     Case "d5"
  2213.                         pbd5.Image = Nothing
  2214.                         Position(4, 3) = "0"
  2215.                     Case "d6"
  2216.                         pbd6.Image = Nothing
  2217.                         Position(5, 3) = "0"
  2218.                     Case "d7"
  2219.                         pbd7.Image = Nothing
  2220.                         Position(6, 3) = "0"
  2221.                     Case "d8"
  2222.                         pbd8.Image = Nothing
  2223.                         Position(7, 3) = "0"
  2224.                     Case "a1"
  2225.                         pba1.Image = Nothing
  2226.                         Position(0, 0) = "0"
  2227.                     Case "b1"
  2228.                         pbb1.Image = Nothing
  2229.                         Position(0, 1) = "0"
  2230.                     Case "c1"
  2231.                         pbc1.Image = Nothing
  2232.                         Position(0, 2) = "0"
  2233.                     Case "e1"
  2234.                         pbe1.Image = Nothing
  2235.                         Position(0, 4) = "0"
  2236.                     Case "f1"
  2237.                         pbf1.Image = Nothing
  2238.                         Position(0, 5) = "0"
  2239.                     Case "g1"
  2240.                         pbg1.Image = Nothing
  2241.                         Position(0, 6) = "0"
  2242.                     Case "h1"
  2243.                         pbh1.Image = Nothing
  2244.                         Position(0, 7) = "0"
  2245.                 End Select
  2246.             ElseIf PieceToBeMoved = "blrook" Then
  2247.                 pbd1.Image = Image.FromFile("blackrook.cur")
  2248.                 Position(0, 3) = "blrook"
  2249.                 Call OriginalColour()
  2250.                 Select Case square
  2251.                     Case "d2"
  2252.                         pbd2.Image = Nothing
  2253.                         Position(1, 3) = "0"
  2254.                     Case "d3"
  2255.                         pbd3.Image = Nothing
  2256.                         Position(2, 3) = "0"
  2257.                     Case "d4"
  2258.                         pbd4.Image = Nothing
  2259.                         Position(3, 3) = "0"
  2260.                     Case "d5"
  2261.                         pbd5.Image = Nothing
  2262.                         Position(4, 3) = "0"
  2263.                     Case "d6"
  2264.                         pbd6.Image = Nothing
  2265.                         Position(5, 3) = "0"
  2266.                     Case "d7"
  2267.                         pbd7.Image = Nothing
  2268.                         Position(6, 3) = "0"
  2269.                     Case "d8"
  2270.                         pbd8.Image = Nothing
  2271.                         Position(7, 3) = "0"
  2272.                     Case "a1"
  2273.                         pba1.Image = Nothing
  2274.                         Position(0, 0) = "0"
  2275.                     Case "b1"
  2276.                         pbb1.Image = Nothing
  2277.                         Position(0, 1) = "0"
  2278.                     Case "c1"
  2279.                         pbc1.Image = Nothing
  2280.                         Position(0, 2) = "0"
  2281.                     Case "e1"
  2282.                         pbe1.Image = Nothing
  2283.                         Position(0, 4) = "0"
  2284.                     Case "f1"
  2285.                         pbf1.Image = Nothing
  2286.                         Position(0, 5) = "0"
  2287.                     Case "g1"
  2288.                         pbg1.Image = Nothing
  2289.                         Position(0, 6) = "0"
  2290.                     Case "h1"
  2291.                         pbh1.Image = Nothing
  2292.                         Position(0, 7) = "0"
  2293.                 End Select
  2294.             ElseIf PieceToBeMoved = "whknight" Then
  2295.                 pbd1.Image = Image.FromFile("whiteknight.cur")
  2296.                 Position(0, 3) = "whknight"
  2297.                 Call OriginalColour()
  2298.                 Select Case square
  2299.                     Case "b2"
  2300.                         pbb2.Image = Nothing
  2301.                         Position(1, 1) = "0"
  2302.                     Case "c3"
  2303.                         pbc3.Image = Nothing
  2304.                         Position(2, 2) = "0"
  2305.                     Case "e3"
  2306.                         pbe3.Image = Nothing
  2307.                         Position(2, 4) = "0"
  2308.                     Case "f2"
  2309.                         pbf2.Image = Nothing
  2310.                         Position(1, 5) = "0"
  2311.                 End Select
  2312.             ElseIf PieceToBeMoved = "blknight" Then
  2313.                 pbd1.Image = Image.FromFile("blackknight.cur")
  2314.                 Position(0, 3) = "blknight"
  2315.                 Call OriginalColour()
  2316.                 Select Case square
  2317.                     Case "b2"
  2318.                         pbb2.Image = Nothing
  2319.                         Position(1, 1) = "0"
  2320.                     Case "c3"
  2321.                         pbc3.Image = Nothing
  2322.                         Position(2, 2) = "0"
  2323.                     Case "e3"
  2324.                         pbe3.Image = Nothing
  2325.                         Position(2, 4) = "0"
  2326.                     Case "f2"
  2327.                         pbf2.Image = Nothing
  2328.                         Position(1, 5) = "0"
  2329.                 End Select
  2330.             ElseIf PieceToBeMoved = "whbishop" Then
  2331.                 pbd1.Image = Image.FromFile("whitebishop.cur")
  2332.                 Position(0, 3) = "whbishop"
  2333.                 Call OriginalColour()
  2334.                 Select Case square
  2335.                     Case "c2"
  2336.                         pbc2.Image = Nothing
  2337.                         Position(1, 2) = "0"
  2338.                     Case "b3"
  2339.                         pbb3.Image = Nothing
  2340.                         Position(2, 1) = "0"
  2341.                     Case "a4"
  2342.                         Position(3, 1) = "0"
  2343.                         pba4.Image = Nothing
  2344.                     Case "e2"
  2345.                         Position(1, 4) = "0"
  2346.                         pbe2.Image = Nothing
  2347.                     Case "f3"
  2348.                         Position(2, 5) = "0"
  2349.                         pbf3.Image = Nothing
  2350.                     Case "g4"
  2351.                         Position(3, 6) = "0"
  2352.                         pbg4.Image = Nothing
  2353.                     Case "h5"
  2354.                         Position(4, 7) = "0"
  2355.                         pbh5.Image = Nothing
  2356.                 End Select
  2357.             ElseIf PieceToBeMoved = "blbishop" Then
  2358.                 pbd1.Image = Image.FromFile("blackbishop.cur")
  2359.                 Position(0, 3) = "blbishop"
  2360.                 Call OriginalColour()
  2361.                 Select Case square
  2362.                     Case "c2"
  2363.                         pbc2.Image = Nothing
  2364.                         Position(1, 2) = "0"
  2365.                     Case "b3"
  2366.                         pbb3.Image = Nothing
  2367.                         Position(2, 1) = "0"
  2368.                     Case "a4"
  2369.                         Position(3, 1) = "0"
  2370.                         pba4.Image = Nothing
  2371.                     Case "e2"
  2372.                         Position(1, 4) = "0"
  2373.                         pbe2.Image = Nothing
  2374.                     Case "f3"
  2375.                         Position(2, 5) = "0"
  2376.                         pbf3.Image = Nothing
  2377.                     Case "g4"
  2378.                         Position(3, 6) = "0"
  2379.                         pbg4.Image = Nothing
  2380.                     Case "h5"
  2381.                         Position(4, 7) = "0"
  2382.                         pbh5.Image = Nothing
  2383.                 End Select
  2384.             ElseIf PieceToBeMoved = "whqueen" Then
  2385.                 pbd1.Image = Image.FromFile("whitequeen.cur")
  2386.                 Position(0, 3) = "whqueen"
  2387.                 Call OriginalColour()
  2388.                 Select Case square
  2389.                     Case "c2"
  2390.                         pbc2.Image = Nothing
  2391.                         Position(1, 2) = "0"
  2392.                     Case "b3"
  2393.                         pbb3.Image = Nothing
  2394.                         Position(2, 1) = "0"
  2395.                     Case "a4"
  2396.                         Position(3, 1) = "0"
  2397.                         pba4.Image = Nothing
  2398.                     Case "e2"
  2399.                         Position(1, 4) = "0"
  2400.                         pbe2.Image = Nothing
  2401.                     Case "f3"
  2402.                         Position(2, 5) = "0"
  2403.                         pbf3.Image = Nothing
  2404.                     Case "g4"
  2405.                         Position(3, 6) = "0"
  2406.                         pbg4.Image = Nothing
  2407.                     Case "h5"
  2408.                         Position(4, 7) = "0"
  2409.                         pbh5.Image = Nothing
  2410.                     Case "d2"
  2411.                         pbd2.Image = Nothing
  2412.                         Position(1, 3) = "0"
  2413.                     Case "d3"
  2414.                         pbd3.Image = Nothing
  2415.                         Position(2, 3) = "0"
  2416.                     Case "d4"
  2417.                         pbd4.Image = Nothing
  2418.                         Position(3, 3) = "0"
  2419.                     Case "d5"
  2420.                         pbd5.Image = Nothing
  2421.                         Position(4, 3) = "0"
  2422.                     Case "d6"
  2423.                         pbd6.Image = Nothing
  2424.                         Position(5, 3) = "0"
  2425.                     Case "d7"
  2426.                         pbd7.Image = Nothing
  2427.                         Position(6, 3) = "0"
  2428.                     Case "d8"
  2429.                         pbd8.Image = Nothing
  2430.                         Position(7, 3) = "0"
  2431.                     Case "a1"
  2432.                         pba1.Image = Nothing
  2433.                         Position(0, 0) = "0"
  2434.                     Case "b1"
  2435.                         pbb1.Image = Nothing
  2436.                         Position(0, 1) = "0"
  2437.                     Case "c1"
  2438.                         pbc1.Image = Nothing
  2439.                         Position(0, 2) = "0"
  2440.                     Case "e1"
  2441.                         pbe1.Image = Nothing
  2442.                         Position(0, 4) = "0"
  2443.                     Case "f1"
  2444.                         pbf1.Image = Nothing
  2445.                         Position(0, 5) = "0"
  2446.                     Case "g1"
  2447.                         pbg1.Image = Nothing
  2448.                         Position(0, 6) = "0"
  2449.                     Case "h1"
  2450.                         pbh1.Image = Nothing
  2451.                         Position(0, 7) = "0"
  2452.                 End Select
  2453.             ElseIf PieceToBeMoved = "blqueen" Then
  2454.                 pbd1.Image = Image.FromFile("blackqueen.cur")
  2455.                 Position(0, 3) = "blqueen"
  2456.                 Call OriginalColour()
  2457.                 Select Case square
  2458.                     Case "c2"
  2459.                         pbc2.Image = Nothing
  2460.                         Position(1, 2) = "0"
  2461.                     Case "b3"
  2462.                         pbb3.Image = Nothing
  2463.                         Position(2, 1) = "0"
  2464.                     Case "a4"
  2465.                         Position(3, 1) = "0"
  2466.                         pba4.Image = Nothing
  2467.                     Case "e2"
  2468.                         Position(1, 4) = "0"
  2469.                         pbe2.Image = Nothing
  2470.                     Case "f3"
  2471.                         Position(2, 5) = "0"
  2472.                         pbf3.Image = Nothing
  2473.                     Case "g4"
  2474.                         Position(3, 6) = "0"
  2475.                         pbg4.Image = Nothing
  2476.                     Case "h5"
  2477.                         Position(4, 7) = "0"
  2478.                         pbh5.Image = Nothing
  2479.                     Case "d2"
  2480.                         pbd2.Image = Nothing
  2481.                         Position(1, 3) = "0"
  2482.                     Case "d3"
  2483.                         pbd3.Image = Nothing
  2484.                         Position(2, 3) = "0"
  2485.                     Case "d4"
  2486.                         pbd4.Image = Nothing
  2487.                         Position(3, 3) = "0"
  2488.                     Case "d5"
  2489.                         pbd5.Image = Nothing
  2490.                         Position(4, 3) = "0"
  2491.                     Case "d6"
  2492.                         pbd6.Image = Nothing
  2493.                         Position(5, 3) = "0"
  2494.                     Case "d7"
  2495.                         pbd7.Image = Nothing
  2496.                         Position(6, 3) = "0"
  2497.                     Case "d8"
  2498.                         pbd8.Image = Nothing
  2499.                         Position(7, 3) = "0"
  2500.                     Case "a1"
  2501.                         pba1.Image = Nothing
  2502.                         Position(0, 0) = "0"
  2503.                     Case "b1"
  2504.                         pbb1.Image = Nothing
  2505.                         Position(0, 1) = "0"
  2506.                     Case "c1"
  2507.                         pbc1.Image = Nothing
  2508.                         Position(0, 2) = "0"
  2509.                     Case "e1"
  2510.                         pbe1.Image = Nothing
  2511.                         Position(0, 4) = "0"
  2512.                     Case "f1"
  2513.                         pbf1.Image = Nothing
  2514.                         Position(0, 5) = "0"
  2515.                     Case "g1"
  2516.                         pbg1.Image = Nothing
  2517.                         Position(0, 6) = "0"
  2518.                     Case "h1"
  2519.                         pbh1.Image = Nothing
  2520.                         Position(0, 7) = "0"
  2521.                 End Select
  2522.             ElseIf PieceToBeMoved = "whking" Then
  2523.                 pbd1.Image = Image.FromFile("whiteking.cur")
  2524.                 Position(0, 3) = "whking"
  2525.                 Call OriginalColour()
  2526.                 Select Case square
  2527.                     Case "c1"
  2528.                         Position(0, 2) = "0"
  2529.                         pbc1.Image = Nothing
  2530.                     Case "e1"
  2531.                         Position(0, 4) = "0"
  2532.                         pbe1.Image = Nothing
  2533.                     Case "d2"
  2534.                         Position(1, 3) = "0"
  2535.                         pbd2.Image = Nothing
  2536.                     Case "c2"
  2537.                         Position(1, 2) = "0"
  2538.                         pbc2.Image = Nothing
  2539.                     Case "e2"
  2540.                         Position(1, 4) = "0"
  2541.                         pbe2.Image = Nothing
  2542.                 End Select
  2543.             ElseIf PieceToBeMoved = "blking" Then
  2544.                 pbd1.Image = Image.FromFile("blackking.cur")
  2545.                 Position(0, 3) = "blking"
  2546.                 Call OriginalColour()
  2547.                 Select Case square
  2548.                     Case "c1"
  2549.                         Position(0, 2) = "0"
  2550.                         pbc1.Image = Nothing
  2551.                     Case "e1"
  2552.                         Position(0, 4) = "0"
  2553.                         pbe1.Image = Nothing
  2554.                     Case "d2"
  2555.                         Position(1, 3) = "0"
  2556.                         pbd2.Image = Nothing
  2557.                     Case "c2"
  2558.                         Position(1, 2) = "0"
  2559.                         pbc2.Image = Nothing
  2560.                     Case "e2"
  2561.                         Position(1, 4) = "0"
  2562.                         pbe2.Image = Nothing
  2563.                 End Select
  2564.             End If
  2565.         End If
  2566.         If piece = "whknight" Then
  2567.             square = "d1"
  2568.             PieceToBeMoved = "whknight"
  2569.             If Position(2, 2) = "0" Or CheckEnemy("white", 2, 2) = True Then
  2570.                 pbc3.BackColor = Color.BlanchedAlmond
  2571.             End If
  2572.             If Position(2, 4) = "0" Or CheckEnemy("white", 2, 4) = True Then
  2573.                 pbe3.BackColor = Color.BlanchedAlmond
  2574.             End If
  2575.             If Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True Then
  2576.                 pbb2.BackColor = Color.BlanchedAlmond
  2577.             End If
  2578.             If Position(1, 5) = "0" Or CheckEnemy("white", 1, 5) = True Then
  2579.                 pbf2.BackColor = Color.BlanchedAlmond
  2580.             End If
  2581.         ElseIf piece = "blknight" Then
  2582.             square = "d1"
  2583.             PieceToBeMoved = "blknight"
  2584.             If Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True Then
  2585.                 pbc3.BackColor = Color.BlanchedAlmond
  2586.             End If
  2587.             If Position(2, 4) = "0" Or CheckEnemy("black", 2, 4) = True Then
  2588.                 pbe3.BackColor = Color.BlanchedAlmond
  2589.             End If
  2590.             If Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True Then
  2591.                 pbb2.BackColor = Color.BlanchedAlmond
  2592.             End If
  2593.             If Position(1, 5) = "0" Or CheckEnemy("black", 1, 5) = True Then
  2594.                 pbf2.BackColor = Color.BlanchedAlmond
  2595.             End If
  2596.         ElseIf piece = "whrook" Then
  2597.             square = "d1"
  2598.             PieceToBeMoved = "whrook"
  2599.             If Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True Then
  2600.                 pbc1.BackColor = Color.BlanchedAlmond
  2601.             End If
  2602.             If (Position(0, 1) = "0" Or CheckEnemy("white", 0, 1) = True) And CheckPiece(0, 2) = "0" Then
  2603.                 pbb1.BackColor = Color.BlanchedAlmond
  2604.             End If
  2605.             If (Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True) And CheckPiece(0, 0) = "0" And CheckPiece(0, 1) = "0" Then
  2606.                 pba1.BackColor = Color.BlanchedAlmond
  2607.             End If
  2608.             If Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True Then
  2609.                 pbe1.BackColor = Color.BlanchedAlmond
  2610.             End If
  2611.             If (Position(0, 5) = "0" Or CheckEnemy("white", 0, 5) = True) And CheckPiece(0, 4) = "0" Then
  2612.                 pbf1.BackColor = Color.BlanchedAlmond
  2613.             End If
  2614.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  2615.                 pbg1.BackColor = Color.BlanchedAlmond
  2616.             End If
  2617.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  2618.                 pbh1.BackColor = Color.BlanchedAlmond
  2619.             End If
  2620.             If Position(1, 3) = "0" Or CheckEnemy("white", 1, 3) = True Then
  2621.                 pbd2.BackColor = Color.BlanchedAlmond
  2622.             End If
  2623.             If (Position(2, 3) = "0" Or CheckEnemy("white", 2, 3) = True) And CheckPiece(2, 3) = "0" Then
  2624.                 pbd3.BackColor = Color.BlanchedAlmond
  2625.             End If
  2626.             If (Position(3, 3) = "0" Or CheckEnemy("white", 3, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True Then
  2627.                 pbd4.BackColor = Color.BlanchedAlmond
  2628.             End If
  2629.             If (Position(4, 3) = "0" Or CheckEnemy("white", 4, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" Then
  2630.                 pbd5.BackColor = Color.BlanchedAlmond
  2631.             End If
  2632.             If (Position(5, 3) = "0" Or CheckEnemy("white", 5, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" Then
  2633.                 pbd6.BackColor = Color.BlanchedAlmond
  2634.             End If
  2635.             If (Position(6, 3) = "0" Or CheckEnemy("white", 6, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" Then
  2636.                 pbd7.BackColor = Color.BlanchedAlmond
  2637.             End If
  2638.             If (Position(7, 3) = "0" Or CheckEnemy("white", 7, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" And CheckPiece(6, 3) = "0" Then
  2639.                 pbd8.BackColor = Color.BlanchedAlmond
  2640.             End If
  2641.         ElseIf piece = "blrook" Then
  2642.             square = "d1"
  2643.             PieceToBeMoved = "blrook"
  2644.             If Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True Then
  2645.                 pbc1.BackColor = Color.BlanchedAlmond
  2646.             End If
  2647.             If (Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True) And CheckPiece(0, 2) = "0" Then
  2648.                 pbb1.BackColor = Color.BlanchedAlmond
  2649.             End If
  2650.             If (Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True) And CheckPiece(0, 0) = "0" And CheckPiece(0, 1) = "0" Then
  2651.                 pba1.BackColor = Color.BlanchedAlmond
  2652.             End If
  2653.             If Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True Then
  2654.                 pbe1.BackColor = Color.BlanchedAlmond
  2655.             End If
  2656.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 4) = "0" Then
  2657.                 pbf1.BackColor = Color.BlanchedAlmond
  2658.             End If
  2659.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  2660.                 pbg1.BackColor = Color.BlanchedAlmond
  2661.             End If
  2662.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  2663.                 pbh1.BackColor = Color.BlanchedAlmond
  2664.             End If
  2665.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  2666.                 pbd2.BackColor = Color.BlanchedAlmond
  2667.             End If
  2668.             If (Position(2, 3) = "0" Or CheckEnemy("black", 2, 3) = True) And CheckPiece(2, 3) = "0" Then
  2669.                 pbd3.BackColor = Color.BlanchedAlmond
  2670.             End If
  2671.             If (Position(3, 3) = "0" Or CheckEnemy("black", 3, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True Then
  2672.                 pbd4.BackColor = Color.BlanchedAlmond
  2673.             End If
  2674.             If (Position(4, 3) = "0" Or CheckEnemy("black", 4, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" Then
  2675.                 pbd5.BackColor = Color.BlanchedAlmond
  2676.             End If
  2677.             If (Position(5, 3) = "0" Or CheckEnemy("black", 5, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" Then
  2678.                 pbd6.BackColor = Color.BlanchedAlmond
  2679.             End If
  2680.             If (Position(6, 3) = "0" Or CheckEnemy("black", 6, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" Then
  2681.                 pbd7.BackColor = Color.BlanchedAlmond
  2682.             End If
  2683.             If (Position(7, 3) = "0" Or CheckEnemy("black", 7, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" And CheckPiece(6, 3) = "0" Then
  2684.                 pbd8.BackColor = Color.BlanchedAlmond
  2685.             End If
  2686.         ElseIf piece = "whbishop" Then
  2687.             square = "d1"
  2688.             PieceToBeMoved = "whbishop"
  2689.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  2690.                 pbc2.BackColor = Color.BlanchedAlmond
  2691.             End If
  2692.             If (Position(2, 1) = "0" Or CheckEnemy("white", 2, 1) = True) And CheckPiece(1, 2) = "0" Then
  2693.                 pbb3.BackColor = Color.BlanchedAlmond
  2694.             End If
  2695.             If (Position(3, 0) = "0" Or CheckEnemy("white", 3, 0) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 1) = "0" Then
  2696.                 pba4.BackColor = Color.BlanchedAlmond
  2697.             End If
  2698.             If Position(1, 4) = "0" Or CheckEnemy("white", 1, 4) = True Then
  2699.                 pbe2.BackColor = Color.BlanchedAlmond
  2700.             End If
  2701.             If (Position(2, 5) = "0" Or CheckEnemy("white", 2, 5) = True) And CheckPiece(1, 4) = "0" Then
  2702.                 pbf3.BackColor = Color.BlanchedAlmond
  2703.             End If
  2704.             If (Position(3, 6) = "0" Or CheckEnemy("white", 3, 6) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" Then
  2705.                 pbg4.BackColor = Color.BlanchedAlmond
  2706.             End If
  2707.             If (Position(4, 7) = "0" Or CheckEnemy("white", 4, 7) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" And CheckPiece(3, 6) = "0" Then
  2708.                 pbh5.BackColor = Color.BlanchedAlmond
  2709.             End If
  2710.         ElseIf piece = "blbishop" Then
  2711.             square = "d1"
  2712.             PieceToBeMoved = "blbishop"
  2713.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  2714.                 pbc2.BackColor = Color.BlanchedAlmond
  2715.             End If
  2716.             If (Position(2, 1) = "0" Or CheckEnemy("black", 2, 1) = True) And CheckPiece(1, 2) = "0" Then
  2717.                 pbb3.BackColor = Color.BlanchedAlmond
  2718.             End If
  2719.             If (Position(3, 0) = "0" Or CheckEnemy("black", 3, 0) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 1) = "0" Then
  2720.                 pba4.BackColor = Color.BlanchedAlmond
  2721.             End If
  2722.             If Position(1, 4) = "0" Or CheckEnemy("black", 1, 4) = True Then
  2723.                 pbe2.BackColor = Color.BlanchedAlmond
  2724.             End If
  2725.             If (Position(2, 5) = "0" Or CheckEnemy("black", 2, 5) = True) And CheckPiece(1, 4) = "0" Then
  2726.                 pbf3.BackColor = Color.BlanchedAlmond
  2727.             End If
  2728.             If (Position(3, 6) = "0" Or CheckEnemy("black", 3, 6) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" Then
  2729.                 pbg4.BackColor = Color.BlanchedAlmond
  2730.             End If
  2731.             If (Position(4, 7) = "0" Or CheckEnemy("black", 4, 7) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" And CheckPiece(3, 6) = "0" Then
  2732.                 pbh5.BackColor = Color.BlanchedAlmond
  2733.             End If
  2734.         ElseIf piece = "whqueen" Then
  2735.             square = "d1"
  2736.             PieceToBeMoved = "whqueen"
  2737.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  2738.                 pbc2.BackColor = Color.BlanchedAlmond
  2739.             End If
  2740.             If (Position(2, 1) = "0" Or CheckEnemy("white", 2, 1) = True) And CheckPiece(1, 2) = "0" Then
  2741.                 pbb3.BackColor = Color.BlanchedAlmond
  2742.             End If
  2743.             If (Position(3, 0) = "0" Or CheckEnemy("white", 3, 0) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 1) = "0" Then
  2744.                 pba4.BackColor = Color.BlanchedAlmond
  2745.             End If
  2746.             If Position(1, 4) = "0" Or CheckEnemy("white", 1, 4) = True Then
  2747.                 pbe2.BackColor = Color.BlanchedAlmond
  2748.             End If
  2749.             If (Position(2, 5) = "0" Or CheckEnemy("white", 2, 5) = True) And CheckPiece(1, 4) = "0" Then
  2750.                 pbf3.BackColor = Color.BlanchedAlmond
  2751.             End If
  2752.             If (Position(3, 6) = "0" Or CheckEnemy("white", 3, 6) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" Then
  2753.                 pbg4.BackColor = Color.BlanchedAlmond
  2754.             End If
  2755.             If (Position(4, 7) = "0" Or CheckEnemy("white", 4, 7) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" And CheckPiece(3, 6) = "0" Then
  2756.                 pbh5.BackColor = Color.BlanchedAlmond
  2757.             End If
  2758.             If Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True Then
  2759.                 pbc1.BackColor = Color.BlanchedAlmond
  2760.             End If
  2761.             If (Position(0, 1) = "0" Or CheckEnemy("white", 0, 1) = True) And CheckPiece(0, 2) = "0" Then
  2762.                 pbb1.BackColor = Color.BlanchedAlmond
  2763.             End If
  2764.             If (Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True) And CheckPiece(0, 0) = "0" And CheckPiece(0, 1) = "0" Then
  2765.                 pba1.BackColor = Color.BlanchedAlmond
  2766.             End If
  2767.             If Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True Then
  2768.                 pbe1.BackColor = Color.BlanchedAlmond
  2769.             End If
  2770.             If (Position(0, 5) = "0" Or CheckEnemy("white", 0, 5) = True) And CheckPiece(0, 4) = "0" Then
  2771.                 pbf1.BackColor = Color.BlanchedAlmond
  2772.             End If
  2773.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  2774.                 pbg1.BackColor = Color.BlanchedAlmond
  2775.             End If
  2776.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  2777.                 pbh1.BackColor = Color.BlanchedAlmond
  2778.             End If
  2779.             If Position(1, 3) = "0" Or CheckEnemy("white", 1, 3) = True Then
  2780.                 pbd2.BackColor = Color.BlanchedAlmond
  2781.             End If
  2782.             If (Position(2, 3) = "0" Or CheckEnemy("white", 2, 3) = True) And CheckPiece(2, 3) = "0" Then
  2783.                 pbd3.BackColor = Color.BlanchedAlmond
  2784.             End If
  2785.             If (Position(3, 3) = "0" Or CheckEnemy("white", 3, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True Then
  2786.                 pbd4.BackColor = Color.BlanchedAlmond
  2787.             End If
  2788.             If (Position(4, 3) = "0" Or CheckEnemy("white", 4, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" Then
  2789.                 pbd5.BackColor = Color.BlanchedAlmond
  2790.             End If
  2791.             If (Position(5, 3) = "0" Or CheckEnemy("white", 5, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" Then
  2792.                 pbd6.BackColor = Color.BlanchedAlmond
  2793.             End If
  2794.             If (Position(6, 3) = "0" Or CheckEnemy("white", 6, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" Then
  2795.                 pbd7.BackColor = Color.BlanchedAlmond
  2796.             End If
  2797.             If (Position(7, 3) = "0" Or CheckEnemy("white", 7, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" And CheckPiece(6, 3) = "0" Then
  2798.                 pbd8.BackColor = Color.BlanchedAlmond
  2799.             End If
  2800.         ElseIf piece = "blqueen" Then
  2801.             square = "d1"
  2802.             PieceToBeMoved = "blqueen"
  2803.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  2804.                 pbc2.BackColor = Color.BlanchedAlmond
  2805.             End If
  2806.             If (Position(2, 1) = "0" Or CheckEnemy("black", 2, 1) = True) And CheckPiece(1, 2) = "0" Then
  2807.                 pbb3.BackColor = Color.BlanchedAlmond
  2808.             End If
  2809.             If (Position(3, 0) = "0" Or CheckEnemy("black", 3, 0) = True) And CheckPiece(1, 2) = "0" And CheckPiece(2, 1) = "0" Then
  2810.                 pba4.BackColor = Color.BlanchedAlmond
  2811.             End If
  2812.             If Position(1, 4) = "0" Or CheckEnemy("black", 1, 4) = True Then
  2813.                 pbe2.BackColor = Color.BlanchedAlmond
  2814.             End If
  2815.             If (Position(2, 5) = "0" Or CheckEnemy("black", 2, 5) = True) And CheckPiece(1, 4) = "0" Then
  2816.                 pbf3.BackColor = Color.BlanchedAlmond
  2817.             End If
  2818.             If (Position(3, 6) = "0" Or CheckEnemy("black", 3, 6) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" Then
  2819.                 pbg4.BackColor = Color.BlanchedAlmond
  2820.             End If
  2821.             If (Position(4, 7) = "0" Or CheckEnemy("black", 4, 7) = True) And CheckPiece(1, 4) = "0" And CheckPiece(2, 5) = "0" And CheckPiece(3, 6) = "0" Then
  2822.                 pbh5.BackColor = Color.BlanchedAlmond
  2823.             End If
  2824.             If Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True Then
  2825.                 pbc1.BackColor = Color.BlanchedAlmond
  2826.             End If
  2827.             If (Position(0, 1) = "0" Or CheckEnemy("black", 0, 1) = True) And CheckPiece(0, 2) = "0" Then
  2828.                 pbb1.BackColor = Color.BlanchedAlmond
  2829.             End If
  2830.             If (Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True) And CheckPiece(0, 0) = "0" And CheckPiece(0, 1) = "0" Then
  2831.                 pba1.BackColor = Color.BlanchedAlmond
  2832.             End If
  2833.             If Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True Then
  2834.                 pbe1.BackColor = Color.BlanchedAlmond
  2835.             End If
  2836.             If (Position(0, 5) = "0" Or CheckEnemy("black", 0, 5) = True) And CheckPiece(0, 4) = "0" Then
  2837.                 pbf1.BackColor = Color.BlanchedAlmond
  2838.             End If
  2839.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" Then
  2840.                 pbg1.BackColor = Color.BlanchedAlmond
  2841.             End If
  2842.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(0, 4) = "0" And CheckPiece(0, 5) = "0" And CheckPiece(0, 6) = "0" Then
  2843.                 pbh1.BackColor = Color.BlanchedAlmond
  2844.             End If
  2845.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  2846.                 pbd2.BackColor = Color.BlanchedAlmond
  2847.             End If
  2848.             If (Position(2, 3) = "0" Or CheckEnemy("black", 2, 3) = True) And CheckPiece(2, 3) = "0" Then
  2849.                 pbd3.BackColor = Color.BlanchedAlmond
  2850.             End If
  2851.             If (Position(3, 3) = "0" Or CheckEnemy("black", 3, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True Then
  2852.                 pbd4.BackColor = Color.BlanchedAlmond
  2853.             End If
  2854.             If (Position(4, 3) = "0" Or CheckEnemy("black", 4, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" Then
  2855.                 pbd5.BackColor = Color.BlanchedAlmond
  2856.             End If
  2857.             If (Position(5, 3) = "0" Or CheckEnemy("black", 5, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" Then
  2858.                 pbd6.BackColor = Color.BlanchedAlmond
  2859.             End If
  2860.             If (Position(6, 3) = "0" Or CheckEnemy("black", 6, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" Then
  2861.                 pbd7.BackColor = Color.BlanchedAlmond
  2862.             End If
  2863.             If (Position(7, 3) = "0" Or CheckEnemy("black", 7, 3) = True) And CheckPiece(1, 3) = "0" And CheckPiece(2, 3) = True And CheckPiece(3, 3) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(5, 3) = "0" And CheckPiece(6, 3) = "0" Then
  2864.                 pbd8.BackColor = Color.BlanchedAlmond
  2865.             End If
  2866.         ElseIf piece = "whking" Then
  2867.             square = "d1"
  2868.             PieceToBeMoved = "whking"
  2869.             If Position(1, 3) = "0" Or CheckEnemy("white", 1, 3) = True Then
  2870.                 pbd2.BackColor = Color.BlanchedAlmond
  2871.             End If
  2872.             If Position(1, 4) = "0" Or CheckEnemy("white", 1, 4) = True Then
  2873.                 pbe2.BackColor = Color.BlanchedAlmond
  2874.             End If
  2875.             If Position(1, 2) = "0" Or CheckEnemy("white", 1, 2) = True Then
  2876.                 pbc2.BackColor = Color.BlanchedAlmond
  2877.             End If
  2878.             If Position(0, 2) = "0" Or CheckEnemy("white", 0, 2) = True Then
  2879.                 pbc1.BackColor = Color.BlanchedAlmond
  2880.             End If
  2881.             If Position(0, 4) = "0" Or CheckEnemy("white", 0, 4) = True Then
  2882.                 pbe1.BackColor = Color.BlanchedAlmond
  2883.             End If
  2884.         ElseIf piece = "blking" Then
  2885.             square = "d1"
  2886.             PieceToBeMoved = "blking"
  2887.             If Position(1, 3) = "0" Or CheckEnemy("black", 1, 3) = True Then
  2888.                 pbd2.BackColor = Color.BlanchedAlmond
  2889.             End If
  2890.             If Position(1, 4) = "0" Or CheckEnemy("black", 1, 4) = True Then
  2891.                 pbe2.BackColor = Color.BlanchedAlmond
  2892.             End If
  2893.             If Position(1, 2) = "0" Or CheckEnemy("black", 1, 2) = True Then
  2894.                 pbc2.BackColor = Color.BlanchedAlmond
  2895.             End If
  2896.             If Position(0, 2) = "0" Or CheckEnemy("black", 0, 2) = True Then
  2897.                 pbc1.BackColor = Color.BlanchedAlmond
  2898.             End If
  2899.             If Position(0, 4) = "0" Or CheckEnemy("black", 0, 4) = True Then
  2900.                 pbe1.BackColor = Color.BlanchedAlmond
  2901.             End If
  2902.         End If
  2903.     End Sub
  2904.  
  2905.     Private Sub pbe1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe1.Click
  2906.         piece = CheckPiece(0, 4)
  2907.         If pbe1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  2908.             If PieceToBeMoved = "whpawn" Then
  2909.                 pbe1.Image = Image.FromFile("whitepawn.cur")
  2910.             ElseIf PieceToBeMoved = "blpawn" Then
  2911.                 pbe1.Image = Image.FromFile("blackpawn.cur")
  2912.             ElseIf PieceToBeMoved = "whrook" Then
  2913.                 pbe1.Image = Image.FromFile("whiterook.cur")
  2914.             ElseIf PieceToBeMoved = "blrook" Then
  2915.                 pbe1.Image = Image.FromFile("blackrook.cur")
  2916.             ElseIf PieceToBeMoved = "whknight" Then
  2917.                 pbe1.Image = Image.FromFile("whiteknight.cur")
  2918.             ElseIf PieceToBeMoved = "blknight" Then
  2919.                 pbe1.Image = Image.FromFile("blackknight.cur")
  2920.             ElseIf PieceToBeMoved = "whbishop" Then
  2921.                 pbe1.Image = Image.FromFile("whitebishop.cur")
  2922.             ElseIf PieceToBeMoved = "blbishop" Then
  2923.                 pbe1.Image = Image.FromFile("blackbishop.cur")
  2924.             ElseIf PieceToBeMoved = "whqueen" Then
  2925.                 pbe1.Image = Image.FromFile("whitequeen.cur")
  2926.             ElseIf PieceToBeMoved = "blqueen" Then
  2927.                 pbe1.Image = Image.FromFile("blackqueen.cur")
  2928.             ElseIf PieceToBeMoved = "whking" Then
  2929.                 pbe1.Image = Image.FromFile("whiteking.cur")
  2930.             ElseIf PieceToBeMoved = "blking" Then
  2931.                 pbe1.Image = Image.FromFile("blackking.cur")
  2932.             End If
  2933.         End If
  2934.     End Sub
  2935.  
  2936.     Private Sub pbf1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf1.Click
  2937.         piece = CheckPiece(0, 5)
  2938.         If pbf1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  2939.             If PieceToBeMoved = "whpawn" Then
  2940.                 pbf1.Image = Image.FromFile("whitepawn.cur")
  2941.             ElseIf PieceToBeMoved = "blpawn" Then
  2942.                 pbf1.Image = Image.FromFile("blackpawn.cur")
  2943.             ElseIf PieceToBeMoved = "whrook" Then
  2944.                 pbf1.Image = Image.FromFile("whiterook.cur")
  2945.             ElseIf PieceToBeMoved = "blrook" Then
  2946.                 pbf1.Image = Image.FromFile("blackrook.cur")
  2947.             ElseIf PieceToBeMoved = "whknight" Then
  2948.                 pbf1.Image = Image.FromFile("whiteknight.cur")
  2949.             ElseIf PieceToBeMoved = "blknight" Then
  2950.                 pbf1.Image = Image.FromFile("blackknight.cur")
  2951.             ElseIf PieceToBeMoved = "whbishop" Then
  2952.                 pbf1.Image = Image.FromFile("whitebishop.cur")
  2953.             ElseIf PieceToBeMoved = "blbishop" Then
  2954.                 pbf1.Image = Image.FromFile("blackbishop.cur")
  2955.             ElseIf PieceToBeMoved = "whqueen" Then
  2956.                 pbf1.Image = Image.FromFile("whitequeen.cur")
  2957.             ElseIf PieceToBeMoved = "blqueen" Then
  2958.                 pbf1.Image = Image.FromFile("blackqueen.cur")
  2959.             ElseIf PieceToBeMoved = "whking" Then
  2960.                 pbf1.Image = Image.FromFile("whiteking.cur")
  2961.             ElseIf PieceToBeMoved = "blking" Then
  2962.                 pbf1.Image = Image.FromFile("blackking.cur")
  2963.             End If
  2964.         End If
  2965.     End Sub
  2966.  
  2967.     Private Sub pbg1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg1.Click
  2968.         piece = CheckPiece(0, 6)
  2969.         If pbg1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  2970.             If PieceToBeMoved = "whpawn" Then
  2971.                 pbg1.Image = Image.FromFile("whitepawn.cur")
  2972.             ElseIf PieceToBeMoved = "blpawn" Then
  2973.                 pbg1.Image = Image.FromFile("blackpawn.cur")
  2974.             ElseIf PieceToBeMoved = "whrook" Then
  2975.                 pbg1.Image = Image.FromFile("whiterook.cur")
  2976.             ElseIf PieceToBeMoved = "blrook" Then
  2977.                 pbg1.Image = Image.FromFile("blackrook.cur")
  2978.             ElseIf PieceToBeMoved = "whknight" Then
  2979.                 pbg1.Image = Image.FromFile("whiteknight.cur")
  2980.             ElseIf PieceToBeMoved = "blknight" Then
  2981.                 pbg1.Image = Image.FromFile("blackknight.cur")
  2982.             ElseIf PieceToBeMoved = "whbishop" Then
  2983.                 pbg1.Image = Image.FromFile("whitebishop.cur")
  2984.             ElseIf PieceToBeMoved = "blbishop" Then
  2985.                 pbg1.Image = Image.FromFile("blackbishop.cur")
  2986.             ElseIf PieceToBeMoved = "whqueen" Then
  2987.                 pbg1.Image = Image.FromFile("whitequeen.cur")
  2988.             ElseIf PieceToBeMoved = "blqueen" Then
  2989.                 pbg1.Image = Image.FromFile("blackqueen.cur")
  2990.             ElseIf PieceToBeMoved = "whking" Then
  2991.                 pbg1.Image = Image.FromFile("whiteking.cur")
  2992.             ElseIf PieceToBeMoved = "blking" Then
  2993.                 pbg1.Image = Image.FromFile("blackking.cur")
  2994.             End If
  2995.         End If
  2996.     End Sub
  2997.  
  2998.     Private Sub pbh1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh1.Click
  2999.         piece = CheckPiece(0, 7)
  3000.         If pbh1.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3001.             If PieceToBeMoved = "whpawn" Then
  3002.                 pbh1.Image = Image.FromFile("whitepawn.cur")
  3003.             ElseIf PieceToBeMoved = "blpawn" Then
  3004.                 pbh1.Image = Image.FromFile("blackpawn.cur")
  3005.             ElseIf PieceToBeMoved = "whrook" Then
  3006.                 pbh1.Image = Image.FromFile("whiterook.cur")
  3007.             ElseIf PieceToBeMoved = "blrook" Then
  3008.                 pbh1.Image = Image.FromFile("blackrook.cur")
  3009.             ElseIf PieceToBeMoved = "whknight" Then
  3010.                 pbh1.Image = Image.FromFile("whiteknight.cur")
  3011.             ElseIf PieceToBeMoved = "blknight" Then
  3012.                 pbh1.Image = Image.FromFile("blackknight.cur")
  3013.             ElseIf PieceToBeMoved = "whbishop" Then
  3014.                 pbh1.Image = Image.FromFile("whitebishop.cur")
  3015.             ElseIf PieceToBeMoved = "blbishop" Then
  3016.                 pbh1.Image = Image.FromFile("blackbishop.cur")
  3017.             ElseIf PieceToBeMoved = "whqueen" Then
  3018.                 pbh1.Image = Image.FromFile("whitequeen.cur")
  3019.             ElseIf PieceToBeMoved = "blqueen" Then
  3020.                 pbh1.Image = Image.FromFile("blackqueen.cur")
  3021.             ElseIf PieceToBeMoved = "whking" Then
  3022.                 pbh1.Image = Image.FromFile("whiteking.cur")
  3023.             ElseIf PieceToBeMoved = "blking" Then
  3024.                 pbh1.Image = Image.FromFile("blackking.cur")
  3025.             End If
  3026.         End If
  3027.     End Sub
  3028.  
  3029.     Private Sub pba2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba2.Click
  3030.         piece = CheckPiece(1, 0)
  3031.         If pba2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3032.             If PieceToBeMoved = "whpawn" Then
  3033.                 pba2.Image = Image.FromFile("whitepawn.cur")
  3034.             ElseIf PieceToBeMoved = "blpawn" Then
  3035.                 pba2.Image = Image.FromFile("blackpawn.cur")
  3036.             ElseIf PieceToBeMoved = "whrook" Then
  3037.                 pba2.Image = Image.FromFile("whiterook.cur")
  3038.                 Select Case square
  3039.                     Case "a1"
  3040.                         pba1.Image = Nothing
  3041.                 End Select
  3042.             ElseIf PieceToBeMoved = "blrook" Then
  3043.                 pba2.Image = Image.FromFile("blackrook.cur")
  3044.             ElseIf PieceToBeMoved = "whknight" Then
  3045.                 pba2.Image = Image.FromFile("whiteknight.cur")
  3046.             ElseIf PieceToBeMoved = "blknight" Then
  3047.                 pba2.Image = Image.FromFile("blackknight.cur")
  3048.             ElseIf PieceToBeMoved = "whbishop" Then
  3049.                 pba2.Image = Image.FromFile("whitebishop.cur")
  3050.             ElseIf PieceToBeMoved = "blbishop" Then
  3051.                 pba2.Image = Image.FromFile("blackbishop.cur")
  3052.             ElseIf PieceToBeMoved = "whqueen" Then
  3053.                 pba2.Image = Image.FromFile("whitequeen.cur")
  3054.             ElseIf PieceToBeMoved = "blqueen" Then
  3055.                 pba2.Image = Image.FromFile("blackqueen.cur")
  3056.             ElseIf PieceToBeMoved = "whking" Then
  3057.                 pba2.Image = Image.FromFile("whiteking.cur")
  3058.             ElseIf PieceToBeMoved = "blking" Then
  3059.                 pba2.Image = Image.FromFile("blackking.cur")
  3060.             End If
  3061.         End If
  3062.         pba2.BackColor = Color.White
  3063.         If piece = "whpawn" Then
  3064.             pba3.BackColor = Color.BlanchedAlmond
  3065.             pba4.BackColor = Color.BlanchedAlmond
  3066.             PieceToBeMoved = "whpawn"
  3067.         ElseIf piece = "blpawn" Then
  3068.             pba1.BackColor = Color.BlanchedAlmond
  3069.             PieceToBeMoved = "blpawn"
  3070.         ElseIf piece = "whknight" Then
  3071.             If Position(3, 1) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  3072.                 pbb4.BackColor = Color.BlanchedAlmond
  3073.             End If
  3074.             If Position(2, 2) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  3075.                 pbc3.BackColor = Color.BlanchedAlmond
  3076.             End If
  3077.             If Position(0, 2) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  3078.                 pbb4.BackColor = Color.BlanchedAlmond
  3079.             End If
  3080.         End If
  3081.     End Sub
  3082.  
  3083.     Private Sub pbb2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb2.Click
  3084.         piece = CheckPiece(1, 1)
  3085.         If pbb2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3086.             If PieceToBeMoved = "whpawn" Then
  3087.                 pbb2.Image = Image.FromFile("whitepawn.cur")
  3088.             ElseIf PieceToBeMoved = "blpawn" Then
  3089.                 pbb2.Image = Image.FromFile("blackpawn.cur")
  3090.                 If square = "b3" Then
  3091.                     pbb3.Image = Nothing
  3092.                 End If
  3093.             ElseIf PieceToBeMoved = "whrook" Then
  3094.                 pbb2.Image = Image.FromFile("whiterook.cur")
  3095.             ElseIf PieceToBeMoved = "blrook" Then
  3096.                 pbb2.Image = Image.FromFile("blackrook.cur")
  3097.             ElseIf PieceToBeMoved = "whknight" Then
  3098.                 pbb2.Image = Image.FromFile("whiteknight.cur")
  3099.             ElseIf PieceToBeMoved = "blknight" Then
  3100.                 pbb2.Image = Image.FromFile("blackknight.cur")
  3101.             ElseIf PieceToBeMoved = "whbishop" Then
  3102.                 pbb2.Image = Image.FromFile("whitebishop.cur")
  3103.             ElseIf PieceToBeMoved = "blbishop" Then
  3104.                 pbb2.Image = Image.FromFile("blackbishop.cur")
  3105.             ElseIf PieceToBeMoved = "whqueen" Then
  3106.                 pbb2.Image = Image.FromFile("whitequeen.cur")
  3107.             ElseIf PieceToBeMoved = "blqueen" Then
  3108.                 pbb2.Image = Image.FromFile("blackqueen.cur")
  3109.             ElseIf PieceToBeMoved = "whking" Then
  3110.                 pbb2.Image = Image.FromFile("whiteking.cur")
  3111.             ElseIf PieceToBeMoved = "blking" Then
  3112.                 pbb2.Image = Image.FromFile("blackking.cur")
  3113.             End If
  3114.         End If
  3115.         pba3.BackColor = Color.Gray
  3116.         If piece = "whpawn" Then
  3117.             pbb3.BackColor = Color.BlanchedAlmond
  3118.             pbb4.BackColor = Color.BlanchedAlmond
  3119.             PieceToBeMoved = "whpawn"
  3120.             square = "b2"
  3121.         ElseIf piece = "blpawn" Then
  3122.             pba1.BackColor = Color.BlanchedAlmond
  3123.             PieceToBeMoved = "blpawn"
  3124.         ElseIf piece = "whknight" Then
  3125.             If Position(3, 1) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  3126.                 pbb4.BackColor = Color.BlanchedAlmond
  3127.             End If
  3128.             If Position(2, 2) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  3129.                 pbc3.BackColor = Color.BlanchedAlmond
  3130.             End If
  3131.             If Position(0, 2) = "0" Or CheckPiece(3, 1) = "blpawn" Or CheckPiece(3, 1) = "blrook" Or CheckPiece(3, 1) = "blknight" Or CheckPiece(3, 1) = "blbishop" Or CheckPiece(3, 1) = "blking" Or CheckPiece(3, 1) = "blqueen" Then
  3132.                 pbb4.BackColor = Color.BlanchedAlmond
  3133.             End If
  3134.         End If
  3135.     End Sub
  3136.  
  3137.     Private Sub pbc2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc2.Click
  3138.         piece = CheckPiece(1, 2)
  3139.         If pbc2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3140.             If PieceToBeMoved = "whpawn" Then
  3141.                 pbc2.Image = Image.FromFile("whitepawn.cur")
  3142.             ElseIf PieceToBeMoved = "blpawn" Then
  3143.                 pbc2.Image = Image.FromFile("blackpawn.cur")
  3144.             ElseIf PieceToBeMoved = "whrook" Then
  3145.                 pbc2.Image = Image.FromFile("whiterook.cur")
  3146.             ElseIf PieceToBeMoved = "blrook" Then
  3147.                 pbc2.Image = Image.FromFile("blackrook.cur")
  3148.             ElseIf PieceToBeMoved = "whknight" Then
  3149.                 pbc2.Image = Image.FromFile("whiteknight.cur")
  3150.             ElseIf PieceToBeMoved = "blknight" Then
  3151.                 pbc2.Image = Image.FromFile("blackknight.cur")
  3152.             ElseIf PieceToBeMoved = "whbishop" Then
  3153.                 pbc2.Image = Image.FromFile("whitebishop.cur")
  3154.             ElseIf PieceToBeMoved = "blbishop" Then
  3155.                 pbc2.Image = Image.FromFile("blackbishop.cur")
  3156.             ElseIf PieceToBeMoved = "whqueen" Then
  3157.                 pbc2.Image = Image.FromFile("whitequeen.cur")
  3158.             ElseIf PieceToBeMoved = "blqueen" Then
  3159.                 pbc2.Image = Image.FromFile("blackqueen.cur")
  3160.             ElseIf PieceToBeMoved = "whking" Then
  3161.                 pbc2.Image = Image.FromFile("whiteking.cur")
  3162.             ElseIf PieceToBeMoved = "blking" Then
  3163.                 pbc2.Image = Image.FromFile("blackking.cur")
  3164.             End If
  3165.         End If
  3166.     End Sub
  3167.  
  3168.     Private Sub pbd2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd2.Click
  3169.         piece = CheckPiece(1, 3)
  3170.         If pbd2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3171.             If PieceToBeMoved = "whpawn" Then
  3172.                 pbd2.Image = Image.FromFile("whitepawn.cur")
  3173.             ElseIf PieceToBeMoved = "blpawn" Then
  3174.                 pbd2.Image = Image.FromFile("blackpawn.cur")
  3175.             ElseIf PieceToBeMoved = "whrook" Then
  3176.                 pbd2.Image = Image.FromFile("whiterook.cur")
  3177.             ElseIf PieceToBeMoved = "blrook" Then
  3178.                 pbd2.Image = Image.FromFile("blackrook.cur")
  3179.             ElseIf PieceToBeMoved = "whknight" Then
  3180.                 pbd2.Image = Image.FromFile("whiteknight.cur")
  3181.             ElseIf PieceToBeMoved = "blknight" Then
  3182.                 pbd2.Image = Image.FromFile("blackknight.cur")
  3183.             ElseIf PieceToBeMoved = "whbishop" Then
  3184.                 pbd2.Image = Image.FromFile("whitebishop.cur")
  3185.             ElseIf PieceToBeMoved = "blbishop" Then
  3186.                 pbd2.Image = Image.FromFile("blackbishop.cur")
  3187.             ElseIf PieceToBeMoved = "whqueen" Then
  3188.                 pbd2.Image = Image.FromFile("whitequeen.cur")
  3189.             ElseIf PieceToBeMoved = "blqueen" Then
  3190.                 pbd2.Image = Image.FromFile("blackqueen.cur")
  3191.             ElseIf PieceToBeMoved = "whking" Then
  3192.                 pbd2.Image = Image.FromFile("whiteking.cur")
  3193.             ElseIf PieceToBeMoved = "blking" Then
  3194.                 pbd2.Image = Image.FromFile("blackking.cur")
  3195.             End If
  3196.         End If
  3197.     End Sub
  3198.  
  3199.     Private Sub pbe2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe2.Click
  3200.         piece = CheckPiece(1, 4)
  3201.         If pbe2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3202.             If PieceToBeMoved = "whpawn" Then
  3203.                 pbe2.Image = Image.FromFile("whitepawn.cur")
  3204.             ElseIf PieceToBeMoved = "blpawn" Then
  3205.                 pbe2.Image = Image.FromFile("blackpawn.cur")
  3206.             ElseIf PieceToBeMoved = "whrook" Then
  3207.                 pbe2.Image = Image.FromFile("whiterook.cur")
  3208.             ElseIf PieceToBeMoved = "blrook" Then
  3209.                 pbe2.Image = Image.FromFile("blackrook.cur")
  3210.             ElseIf PieceToBeMoved = "whknight" Then
  3211.                 pbe2.Image = Image.FromFile("whiteknight.cur")
  3212.             ElseIf PieceToBeMoved = "blknight" Then
  3213.                 pbe2.Image = Image.FromFile("blackknight.cur")
  3214.             ElseIf PieceToBeMoved = "whbishop" Then
  3215.                 pbe2.Image = Image.FromFile("whitebishop.cur")
  3216.             ElseIf PieceToBeMoved = "blbishop" Then
  3217.                 pbe2.Image = Image.FromFile("blackbishop.cur")
  3218.             ElseIf PieceToBeMoved = "whqueen" Then
  3219.                 pbe2.Image = Image.FromFile("whitequeen.cur")
  3220.             ElseIf PieceToBeMoved = "blqueen" Then
  3221.                 pbe2.Image = Image.FromFile("blackqueen.cur")
  3222.             ElseIf PieceToBeMoved = "whking" Then
  3223.                 pbe2.Image = Image.FromFile("whiteking.cur")
  3224.             ElseIf PieceToBeMoved = "blking" Then
  3225.                 pbe2.Image = Image.FromFile("blackking.cur")
  3226.             End If
  3227.         End If
  3228.     End Sub
  3229.  
  3230.     Private Sub pbf2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf2.Click
  3231.         piece = CheckPiece(1, 5)
  3232.         If pbf2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3233.             If PieceToBeMoved = "whpawn" Then
  3234.                 pbf2.Image = Image.FromFile("whitepawn.cur")
  3235.             ElseIf PieceToBeMoved = "blpawn" Then
  3236.                 pbf2.Image = Image.FromFile("blackpawn.cur")
  3237.             ElseIf PieceToBeMoved = "whrook" Then
  3238.                 pbf2.Image = Image.FromFile("whiterook.cur")
  3239.             ElseIf PieceToBeMoved = "blrook" Then
  3240.                 pbf2.Image = Image.FromFile("blackrook.cur")
  3241.             ElseIf PieceToBeMoved = "whknight" Then
  3242.                 pbf2.Image = Image.FromFile("whiteknight.cur")
  3243.             ElseIf PieceToBeMoved = "blknight" Then
  3244.                 pbf2.Image = Image.FromFile("blackknight.cur")
  3245.             ElseIf PieceToBeMoved = "whbishop" Then
  3246.                 pbf2.Image = Image.FromFile("whitebishop.cur")
  3247.             ElseIf PieceToBeMoved = "blbishop" Then
  3248.                 pbf2.Image = Image.FromFile("blackbishop.cur")
  3249.             ElseIf PieceToBeMoved = "whqueen" Then
  3250.                 pbf2.Image = Image.FromFile("whitequeen.cur")
  3251.             ElseIf PieceToBeMoved = "blqueen" Then
  3252.                 pbf2.Image = Image.FromFile("blackqueen.cur")
  3253.             ElseIf PieceToBeMoved = "whking" Then
  3254.                 pbf2.Image = Image.FromFile("whiteking.cur")
  3255.             ElseIf PieceToBeMoved = "blking" Then
  3256.                 pbf2.Image = Image.FromFile("blackking.cur")
  3257.             End If
  3258.         End If
  3259.     End Sub
  3260.  
  3261.     Private Sub pbg2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg2.Click
  3262.         piece = CheckPiece(1, 6)
  3263.         If pbg2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3264.             If PieceToBeMoved = "whpawn" Then
  3265.                 pbg2.Image = Image.FromFile("whitepawn.cur")
  3266.             ElseIf PieceToBeMoved = "blpawn" Then
  3267.                 pbg2.Image = Image.FromFile("blackpawn.cur")
  3268.             ElseIf PieceToBeMoved = "whrook" Then
  3269.                 pbg2.Image = Image.FromFile("whiterook.cur")
  3270.             ElseIf PieceToBeMoved = "blrook" Then
  3271.                 pbg2.Image = Image.FromFile("blackrook.cur")
  3272.             ElseIf PieceToBeMoved = "whknight" Then
  3273.                 pbg2.Image = Image.FromFile("whiteknight.cur")
  3274.             ElseIf PieceToBeMoved = "blknight" Then
  3275.                 pbg2.Image = Image.FromFile("blackknight.cur")
  3276.             ElseIf PieceToBeMoved = "whbishop" Then
  3277.                 pbg2.Image = Image.FromFile("whitebishop.cur")
  3278.             ElseIf PieceToBeMoved = "blbishop" Then
  3279.                 pbg2.Image = Image.FromFile("blackbishop.cur")
  3280.             ElseIf PieceToBeMoved = "whqueen" Then
  3281.                 pbg2.Image = Image.FromFile("whitequeen.cur")
  3282.             ElseIf PieceToBeMoved = "blqueen" Then
  3283.                 pbg2.Image = Image.FromFile("blackqueen.cur")
  3284.             ElseIf PieceToBeMoved = "whking" Then
  3285.                 pbg2.Image = Image.FromFile("whiteking.cur")
  3286.             ElseIf PieceToBeMoved = "blking" Then
  3287.                 pbg2.Image = Image.FromFile("blackking.cur")
  3288.             End If
  3289.         End If
  3290.     End Sub
  3291.  
  3292.     Private Sub pbh2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh2.Click
  3293.         piece = CheckPiece(1, 7)
  3294.         If pbh2.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3295.             If PieceToBeMoved = "whpawn" Then
  3296.                 pbh2.Image = Image.FromFile("whitepawn.cur")
  3297.             ElseIf PieceToBeMoved = "blpawn" Then
  3298.                 pbh2.Image = Image.FromFile("blackpawn.cur")
  3299.             ElseIf PieceToBeMoved = "whrook" Then
  3300.                 pbh2.Image = Image.FromFile("whiterook.cur")
  3301.             ElseIf PieceToBeMoved = "blrook" Then
  3302.                 pbh2.Image = Image.FromFile("blackrook.cur")
  3303.             ElseIf PieceToBeMoved = "whknight" Then
  3304.                 pbh2.Image = Image.FromFile("whiteknight.cur")
  3305.             ElseIf PieceToBeMoved = "blknight" Then
  3306.                 pbh2.Image = Image.FromFile("blackknight.cur")
  3307.             ElseIf PieceToBeMoved = "whbishop" Then
  3308.                 pbh2.Image = Image.FromFile("whitebishop.cur")
  3309.             ElseIf PieceToBeMoved = "blbishop" Then
  3310.                 pbh2.Image = Image.FromFile("blackbishop.cur")
  3311.             ElseIf PieceToBeMoved = "whqueen" Then
  3312.                 pbh2.Image = Image.FromFile("whitequeen.cur")
  3313.             ElseIf PieceToBeMoved = "blqueen" Then
  3314.                 pbh2.Image = Image.FromFile("blackqueen.cur")
  3315.             ElseIf PieceToBeMoved = "whking" Then
  3316.                 pbh2.Image = Image.FromFile("whiteking.cur")
  3317.             ElseIf PieceToBeMoved = "blking" Then
  3318.                 pbh2.Image = Image.FromFile("blackking.cur")
  3319.             End If
  3320.         End If
  3321.     End Sub
  3322.  
  3323.     Private Sub pba3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba3.Click
  3324.         piece = CheckPiece(2, 0)
  3325.         If pba3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3326.             If PieceToBeMoved = "whpawn" Then
  3327.                 pba3.Image = Image.FromFile("whitepawn.cur")
  3328.                 Position(2, 0) = "whpawn"
  3329.                 Position(1, 0) = "0"
  3330.                 pba2.Image = Nothing
  3331.                 pba3.BackColor = Color.Gray
  3332.                 pba4.BackColor = Color.White
  3333.             ElseIf PieceToBeMoved = "blpawn" Then
  3334.                 pba3.Image = Image.FromFile("blackpawn.cur")
  3335.                 pba3.BackColor = Color.Gray
  3336.                 Position(2, 0) = "blpawn"
  3337.                 Position(3, 0) = "0"
  3338.             ElseIf PieceToBeMoved = "whrook" Then
  3339.                 Position(2, 0) = "whrook"
  3340.                 pba3.Image = Image.FromFile("whiterook.cur")
  3341.                 Select Case square
  3342.                     Case "a2"
  3343.                         Position(1, 0) = "0"
  3344.                         pba1.BackColor = Color.Gray
  3345.                         pba2.BackColor = Color.White
  3346.                         pba3.BackColor = Color.Gray
  3347.                         pba4.BackColor = Color.White
  3348.                         pba5.BackColor = Color.Gray
  3349.                         pba6.BackColor = Color.White
  3350.                         pba7.BackColor = Color.Gray
  3351.                         pba8.BackColor = Color.White
  3352.                         pbb2.BackColor = Color.Gray
  3353.                         pbc2.BackColor = Color.White
  3354.                         pbd2.BackColor = Color.Gray
  3355.                         pbe2.BackColor = Color.White
  3356.                         pbf2.BackColor = Color.Gray
  3357.                         pbg2.BackColor = Color.White
  3358.                         pbh2.BackColor = Color.Gray
  3359.                     Case "a1"
  3360.                         Position(0, 0) = "0"
  3361.                         pba1.BackColor = Color.Gray
  3362.                         pba2.BackColor = Color.White
  3363.                         pba3.BackColor = Color.Gray
  3364.                         pba4.BackColor = Color.White
  3365.                         pba5.BackColor = Color.Gray
  3366.                         pba6.BackColor = Color.White
  3367.                         pba7.BackColor = Color.Gray
  3368.                         pba8.BackColor = Color.White
  3369.                         pbb1.BackColor = Color.White
  3370.                         pbc1.BackColor = Color.Gray
  3371.                         pbd1.BackColor = Color.White
  3372.                         pbe1.BackColor = Color.Gray
  3373.                         pbf1.BackColor = Color.White
  3374.                         pbg1.BackColor = Color.Gray
  3375.                         pbh1.BackColor = Color.White
  3376.                     Case "a4"
  3377.                         Position(3, 0) = "0"
  3378.                         pba1.BackColor = Color.Gray
  3379.                         pba2.BackColor = Color.White
  3380.                         pba3.BackColor = Color.Gray
  3381.                         pba4.BackColor = Color.White
  3382.                         pba5.BackColor = Color.Gray
  3383.                         pba6.BackColor = Color.White
  3384.                         pba7.BackColor = Color.Gray
  3385.                         pba8.BackColor = Color.White
  3386.                         pbb4.BackColor = Color.Gray
  3387.                         pbc4.BackColor = Color.White
  3388.                         pbd4.BackColor = Color.Gray
  3389.                         pbe4.BackColor = Color.White
  3390.                         pbf4.BackColor = Color.Gray
  3391.                         pbg4.BackColor = Color.White
  3392.                         pbh4.BackColor = Color.Gray
  3393.                     Case "a5"
  3394.                         Position(4, 0) = "0"
  3395.                         pba1.BackColor = Color.Gray
  3396.                         pba2.BackColor = Color.White
  3397.                         pba3.BackColor = Color.Gray
  3398.                         pba4.BackColor = Color.White
  3399.                         pba5.BackColor = Color.Gray
  3400.                         pba6.BackColor = Color.White
  3401.                         pba7.BackColor = Color.Gray
  3402.                         pba8.BackColor = Color.White
  3403.                         pbb5.BackColor = Color.White
  3404.                         pbc5.BackColor = Color.Gray
  3405.                         pbd5.BackColor = Color.White
  3406.                         pbe5.BackColor = Color.Gray
  3407.                         pbf5.BackColor = Color.White
  3408.                         pbg5.BackColor = Color.Gray
  3409.                         pbh5.BackColor = Color.White
  3410.                     Case "a6"
  3411.                         Position(5, 0) = "0"
  3412.                         pba1.BackColor = Color.Gray
  3413.                         pba2.BackColor = Color.White
  3414.                         pba3.BackColor = Color.Gray
  3415.                         pba4.BackColor = Color.White
  3416.                         pba5.BackColor = Color.Gray
  3417.                         pba6.BackColor = Color.White
  3418.                         pba7.BackColor = Color.Gray
  3419.                         pba8.BackColor = Color.White
  3420.                         pbb6.BackColor = Color.Gray
  3421.                         pbc6.BackColor = Color.White
  3422.                         pbd6.BackColor = Color.Gray
  3423.                         pbe6.BackColor = Color.White
  3424.                         pbf6.BackColor = Color.Gray
  3425.                         pbg6.BackColor = Color.White
  3426.                         pbh6.BackColor = Color.Gray
  3427.                     Case "a7"
  3428.                         Position(6, 0) = "0"
  3429.                         pba1.BackColor = Color.Gray
  3430.                         pba2.BackColor = Color.White
  3431.                         pba3.BackColor = Color.Gray
  3432.                         pba4.BackColor = Color.White
  3433.                         pba5.BackColor = Color.Gray
  3434.                         pba6.BackColor = Color.White
  3435.                         pba7.BackColor = Color.Gray
  3436.                         pba8.BackColor = Color.White
  3437.                         pbb7.BackColor = Color.White
  3438.                         pbc7.BackColor = Color.Gray
  3439.                         pbd7.BackColor = Color.White
  3440.                         pbe7.BackColor = Color.Gray
  3441.                         pbf7.BackColor = Color.White
  3442.                         pbg7.BackColor = Color.Gray
  3443.                         pbh7.BackColor = Color.White
  3444.                     Case "a8"
  3445.                         Position(7, 0) = "0"
  3446.                         pba1.BackColor = Color.Gray
  3447.                         pba2.BackColor = Color.White
  3448.                         pba3.BackColor = Color.Gray
  3449.                         pba4.BackColor = Color.White
  3450.                         pba5.BackColor = Color.Gray
  3451.                         pba6.BackColor = Color.White
  3452.                         pba7.BackColor = Color.Gray
  3453.                         pba8.BackColor = Color.White
  3454.                         pbb8.BackColor = Color.Gray
  3455.                         pbc8.BackColor = Color.White
  3456.                         pbd8.BackColor = Color.Gray
  3457.                         pbe8.BackColor = Color.White
  3458.                         pbf8.BackColor = Color.Gray
  3459.                         pbg8.BackColor = Color.White
  3460.                         pbh8.BackColor = Color.Gray
  3461.                     Case "b3"
  3462.                         Position(2, 1) = "0"
  3463.                         pbb1.BackColor = Color.White
  3464.                         pbb2.BackColor = Color.Gray
  3465.                         pbb3.BackColor = Color.White
  3466.                         pbb4.BackColor = Color.Gray
  3467.                         pbb5.BackColor = Color.White
  3468.                         pbb6.BackColor = Color.Gray
  3469.                         pbb7.BackColor = Color.White
  3470.                         pbb8.BackColor = Color.Gray
  3471.                         pba3.BackColor = Color.Gray
  3472.                         pbc3.BackColor = Color.Gray
  3473.                         pbd3.BackColor = Color.White
  3474.                         pbe3.BackColor = Color.Gray
  3475.                         pbf3.BackColor = Color.White
  3476.                         pbg3.BackColor = Color.Gray
  3477.                         pbh3.BackColor = Color.White
  3478.                     Case "c3"
  3479.                         Position(2, 2) = "0"
  3480.                         pbc1.BackColor = Color.Gray
  3481.                         pbc2.BackColor = Color.White
  3482.                         pbc3.BackColor = Color.Gray
  3483.                         pbc4.BackColor = Color.White
  3484.                         pbc5.BackColor = Color.Gray
  3485.                         pbc6.BackColor = Color.White
  3486.                         pbc7.BackColor = Color.Gray
  3487.                         pbc8.BackColor = Color.White
  3488.                         pba3.BackColor = Color.Gray
  3489.                         pbb3.BackColor = Color.White
  3490.                         pbd3.BackColor = Color.White
  3491.                         pbe3.BackColor = Color.Gray
  3492.                         pbf3.BackColor = Color.White
  3493.                         pbg3.BackColor = Color.Gray
  3494.                         pbh3.BackColor = Color.White
  3495.                     Case "d3"
  3496.                         Position(2, 3) = "0"
  3497.                         pbd1.BackColor = Color.White
  3498.                         pbd2.BackColor = Color.Gray
  3499.                         pbd3.BackColor = Color.White
  3500.                         pbd4.BackColor = Color.Gray
  3501.                         pbd5.BackColor = Color.White
  3502.                         pbd6.BackColor = Color.Gray
  3503.                         pbd7.BackColor = Color.White
  3504.                         pbd8.BackColor = Color.Gray
  3505.                         pba3.BackColor = Color.Gray
  3506.                         pbb3.BackColor = Color.White
  3507.                         pbc3.BackColor = Color.Gray
  3508.                         pbe3.BackColor = Color.Gray
  3509.                         pbf3.BackColor = Color.White
  3510.                         pbg3.BackColor = Color.Gray
  3511.                         pbh3.BackColor = Color.White
  3512.                     Case "e3"
  3513.                         Position(2, 4) = "0"
  3514.                         pbe1.BackColor = Color.Gray
  3515.                         pbe2.BackColor = Color.White
  3516.                         pbe3.BackColor = Color.Gray
  3517.                         pbe4.BackColor = Color.White
  3518.                         pbe5.BackColor = Color.Gray
  3519.                         pbe6.BackColor = Color.White
  3520.                         pbe7.BackColor = Color.Gray
  3521.                         pbe8.BackColor = Color.White
  3522.                         pba3.BackColor = Color.Gray
  3523.                         pbb3.BackColor = Color.White
  3524.                         pbd3.BackColor = Color.White
  3525.                         pbc3.BackColor = Color.Gray
  3526.                         pbf3.BackColor = Color.White
  3527.                         pbg3.BackColor = Color.Gray
  3528.                         pbh3.BackColor = Color.White
  3529.                     Case "f3"
  3530.                         Position(2, 5) = "0"
  3531.                         pbf1.BackColor = Color.White
  3532.                         pbf2.BackColor = Color.Gray
  3533.                         pbf3.BackColor = Color.White
  3534.                         pbf4.BackColor = Color.Gray
  3535.                         pbf5.BackColor = Color.White
  3536.                         pbf6.BackColor = Color.Gray
  3537.                         pbf7.BackColor = Color.White
  3538.                         pbf8.BackColor = Color.Gray
  3539.                         pba3.BackColor = Color.Gray
  3540.                         pbb3.BackColor = Color.White
  3541.                         pbc3.BackColor = Color.Gray
  3542.                         pbd3.BackColor = Color.White
  3543.                         pbe3.BackColor = Color.Gray
  3544.                         pbg3.BackColor = Color.Gray
  3545.                         pbh3.BackColor = Color.White
  3546.                     Case "g3"
  3547.                         Position(2, 6) = "0"
  3548.                         pbg1.BackColor = Color.Gray
  3549.                         pbg2.BackColor = Color.White
  3550.                         pbg3.BackColor = Color.Gray
  3551.                         pbg4.BackColor = Color.White
  3552.                         pbg5.BackColor = Color.Gray
  3553.                         pbg6.BackColor = Color.White
  3554.                         pbg7.BackColor = Color.Gray
  3555.                         pbg8.BackColor = Color.White
  3556.                         pba3.BackColor = Color.Gray
  3557.                         pbb3.BackColor = Color.White
  3558.                         pbc3.BackColor = Color.Gray
  3559.                         pbe3.BackColor = Color.Gray
  3560.                         pbf3.BackColor = Color.White
  3561.                         pbd3.BackColor = Color.White
  3562.                         pbh3.BackColor = Color.White
  3563.                     Case "h3"
  3564.                         Position(2, 7) = "0"
  3565.                         pbh1.BackColor = Color.White
  3566.                         pbh2.BackColor = Color.Gray
  3567.                         pbh3.BackColor = Color.White
  3568.                         pbh4.BackColor = Color.Gray
  3569.                         pbh5.BackColor = Color.White
  3570.                         pbh6.BackColor = Color.Gray
  3571.                         pbh7.BackColor = Color.White
  3572.                         pbh8.BackColor = Color.Gray
  3573.                         pba3.BackColor = Color.Gray
  3574.                         pbb3.BackColor = Color.White
  3575.                         pbc3.BackColor = Color.Gray
  3576.                         pbe3.BackColor = Color.Gray
  3577.                         pbf3.BackColor = Color.White
  3578.                         pbg3.BackColor = Color.Gray
  3579.                         pbd3.BackColor = Color.White
  3580.                 End Select
  3581.             ElseIf PieceToBeMoved = "blrook" Then
  3582.                 Position(2, 0) = "blrook"
  3583.                 pba3.Image = Image.FromFile("blackrook.cur")
  3584.                 Select Case square
  3585.                     Case "a2"
  3586.                         Position(1, 0) = "0"
  3587.                         pba1.BackColor = Color.Gray
  3588.                         pba2.BackColor = Color.White
  3589.                         pba3.BackColor = Color.Gray
  3590.                         pba4.BackColor = Color.White
  3591.                         pba5.BackColor = Color.Gray
  3592.                         pba6.BackColor = Color.White
  3593.                         pba7.BackColor = Color.Gray
  3594.                         pba8.BackColor = Color.White
  3595.                         pbb2.BackColor = Color.Gray
  3596.                         pbc2.BackColor = Color.White
  3597.                         pbd2.BackColor = Color.Gray
  3598.                         pbe2.BackColor = Color.White
  3599.                         pbf2.BackColor = Color.Gray
  3600.                         pbg2.BackColor = Color.White
  3601.                         pbh2.BackColor = Color.Gray
  3602.                     Case "a1"
  3603.                         Position(0, 0) = "0"
  3604.                         pba1.BackColor = Color.Gray
  3605.                         pba2.BackColor = Color.White
  3606.                         pba3.BackColor = Color.Gray
  3607.                         pba4.BackColor = Color.White
  3608.                         pba5.BackColor = Color.Gray
  3609.                         pba6.BackColor = Color.White
  3610.                         pba7.BackColor = Color.Gray
  3611.                         pba8.BackColor = Color.White
  3612.                         pbb1.BackColor = Color.White
  3613.                         pbc1.BackColor = Color.Gray
  3614.                         pbd1.BackColor = Color.White
  3615.                         pbe1.BackColor = Color.Gray
  3616.                         pbf1.BackColor = Color.White
  3617.                         pbg1.BackColor = Color.Gray
  3618.                         pbh1.BackColor = Color.White
  3619.                     Case "a4"
  3620.                         Position(3, 0) = "0"
  3621.                         pba1.BackColor = Color.Gray
  3622.                         pba2.BackColor = Color.White
  3623.                         pba3.BackColor = Color.Gray
  3624.                         pba4.BackColor = Color.White
  3625.                         pba5.BackColor = Color.Gray
  3626.                         pba6.BackColor = Color.White
  3627.                         pba7.BackColor = Color.Gray
  3628.                         pba8.BackColor = Color.White
  3629.                         pbb4.BackColor = Color.Gray
  3630.                         pbc4.BackColor = Color.White
  3631.                         pbd4.BackColor = Color.Gray
  3632.                         pbe4.BackColor = Color.White
  3633.                         pbf4.BackColor = Color.Gray
  3634.                         pbg4.BackColor = Color.White
  3635.                         pbh4.BackColor = Color.Gray
  3636.                     Case "a5"
  3637.                         Position(4, 0) = "0"
  3638.                         pba1.BackColor = Color.Gray
  3639.                         pba2.BackColor = Color.White
  3640.                         pba3.BackColor = Color.Gray
  3641.                         pba4.BackColor = Color.White
  3642.                         pba5.BackColor = Color.Gray
  3643.                         pba6.BackColor = Color.White
  3644.                         pba7.BackColor = Color.Gray
  3645.                         pba8.BackColor = Color.White
  3646.                         pbb5.BackColor = Color.White
  3647.                         pbc5.BackColor = Color.Gray
  3648.                         pbd5.BackColor = Color.White
  3649.                         pbe5.BackColor = Color.Gray
  3650.                         pbf5.BackColor = Color.White
  3651.                         pbg5.BackColor = Color.Gray
  3652.                         pbh5.BackColor = Color.White
  3653.                     Case "a6"
  3654.                         Position(5, 0) = "0"
  3655.                         pba1.BackColor = Color.Gray
  3656.                         pba2.BackColor = Color.White
  3657.                         pba3.BackColor = Color.Gray
  3658.                         pba4.BackColor = Color.White
  3659.                         pba5.BackColor = Color.Gray
  3660.                         pba6.BackColor = Color.White
  3661.                         pba7.BackColor = Color.Gray
  3662.                         pba8.BackColor = Color.White
  3663.                         pbb6.BackColor = Color.Gray
  3664.                         pbc6.BackColor = Color.White
  3665.                         pbd6.BackColor = Color.Gray
  3666.                         pbe6.BackColor = Color.White
  3667.                         pbf6.BackColor = Color.Gray
  3668.                         pbg6.BackColor = Color.White
  3669.                         pbh6.BackColor = Color.Gray
  3670.                     Case "a7"
  3671.                         Position(6, 0) = "0"
  3672.                         pba1.BackColor = Color.Gray
  3673.                         pba2.BackColor = Color.White
  3674.                         pba3.BackColor = Color.Gray
  3675.                         pba4.BackColor = Color.White
  3676.                         pba5.BackColor = Color.Gray
  3677.                         pba6.BackColor = Color.White
  3678.                         pba7.BackColor = Color.Gray
  3679.                         pba8.BackColor = Color.White
  3680.                         pbb7.BackColor = Color.White
  3681.                         pbc7.BackColor = Color.Gray
  3682.                         pbd7.BackColor = Color.White
  3683.                         pbe7.BackColor = Color.Gray
  3684.                         pbf7.BackColor = Color.White
  3685.                         pbg7.BackColor = Color.Gray
  3686.                         pbh7.BackColor = Color.White
  3687.                     Case "a8"
  3688.                         Position(7, 0) = "0"
  3689.                         pba1.BackColor = Color.Gray
  3690.                         pba2.BackColor = Color.White
  3691.                         pba3.BackColor = Color.Gray
  3692.                         pba4.BackColor = Color.White
  3693.                         pba5.BackColor = Color.Gray
  3694.                         pba6.BackColor = Color.White
  3695.                         pba7.BackColor = Color.Gray
  3696.                         pba8.BackColor = Color.White
  3697.                         pbb8.BackColor = Color.Gray
  3698.                         pbc8.BackColor = Color.White
  3699.                         pbd8.BackColor = Color.Gray
  3700.                         pbe8.BackColor = Color.White
  3701.                         pbf8.BackColor = Color.Gray
  3702.                         pbg8.BackColor = Color.White
  3703.                         pbh8.BackColor = Color.Gray
  3704.                     Case "b3"
  3705.                         Position(2, 1) = "0"
  3706.                         pbb1.BackColor = Color.White
  3707.                         pbb2.BackColor = Color.Gray
  3708.                         pbb3.BackColor = Color.White
  3709.                         pbb4.BackColor = Color.Gray
  3710.                         pbb5.BackColor = Color.White
  3711.                         pbb6.BackColor = Color.Gray
  3712.                         pbb7.BackColor = Color.White
  3713.                         pbb8.BackColor = Color.Gray
  3714.                         pba3.BackColor = Color.Gray
  3715.                         pbc3.BackColor = Color.Gray
  3716.                         pbd3.BackColor = Color.White
  3717.                         pbe3.BackColor = Color.Gray
  3718.                         pbf3.BackColor = Color.White
  3719.                         pbg3.BackColor = Color.Gray
  3720.                         pbh3.BackColor = Color.White
  3721.                     Case "c3"
  3722.                         Position(2, 2) = "0"
  3723.                         pbc1.BackColor = Color.Gray
  3724.                         pbc2.BackColor = Color.White
  3725.                         pbc3.BackColor = Color.Gray
  3726.                         pbc4.BackColor = Color.White
  3727.                         pbc5.BackColor = Color.Gray
  3728.                         pbc6.BackColor = Color.White
  3729.                         pbc7.BackColor = Color.Gray
  3730.                         pbc8.BackColor = Color.White
  3731.                         pba3.BackColor = Color.Gray
  3732.                         pbb3.BackColor = Color.White
  3733.                         pbd3.BackColor = Color.White
  3734.                         pbe3.BackColor = Color.Gray
  3735.                         pbf3.BackColor = Color.White
  3736.                         pbg3.BackColor = Color.Gray
  3737.                         pbh3.BackColor = Color.White
  3738.                     Case "d3"
  3739.                         Position(2, 3) = "0"
  3740.                         pbd1.BackColor = Color.White
  3741.                         pbd2.BackColor = Color.Gray
  3742.                         pbd3.BackColor = Color.White
  3743.                         pbd4.BackColor = Color.Gray
  3744.                         pbd5.BackColor = Color.White
  3745.                         pbd6.BackColor = Color.Gray
  3746.                         pbd7.BackColor = Color.White
  3747.                         pbd8.BackColor = Color.Gray
  3748.                         pba3.BackColor = Color.Gray
  3749.                         pbb3.BackColor = Color.White
  3750.                         pbc3.BackColor = Color.Gray
  3751.                         pbe3.BackColor = Color.Gray
  3752.                         pbf3.BackColor = Color.White
  3753.                         pbg3.BackColor = Color.Gray
  3754.                         pbh3.BackColor = Color.White
  3755.                     Case "e3"
  3756.                         Position(2, 4) = "0"
  3757.                         pbe1.BackColor = Color.Gray
  3758.                         pbe2.BackColor = Color.White
  3759.                         pbe3.BackColor = Color.Gray
  3760.                         pbe4.BackColor = Color.White
  3761.                         pbe5.BackColor = Color.Gray
  3762.                         pbe6.BackColor = Color.White
  3763.                         pbe7.BackColor = Color.Gray
  3764.                         pbe8.BackColor = Color.White
  3765.                         pba3.BackColor = Color.Gray
  3766.                         pbb3.BackColor = Color.White
  3767.                         pbd3.BackColor = Color.White
  3768.                         pbc3.BackColor = Color.Gray
  3769.                         pbf3.BackColor = Color.White
  3770.                         pbg3.BackColor = Color.Gray
  3771.                         pbh3.BackColor = Color.White
  3772.                     Case "f3"
  3773.                         Position(2, 5) = "0"
  3774.                         pbf1.BackColor = Color.White
  3775.                         pbf2.BackColor = Color.Gray
  3776.                         pbf3.BackColor = Color.White
  3777.                         pbf4.BackColor = Color.Gray
  3778.                         pbf5.BackColor = Color.White
  3779.                         pbf6.BackColor = Color.Gray
  3780.                         pbf7.BackColor = Color.White
  3781.                         pbf8.BackColor = Color.Gray
  3782.                         pba3.BackColor = Color.Gray
  3783.                         pbb3.BackColor = Color.White
  3784.                         pbc3.BackColor = Color.Gray
  3785.                         pbd3.BackColor = Color.White
  3786.                         pbe3.BackColor = Color.Gray
  3787.                         pbg3.BackColor = Color.Gray
  3788.                         pbh3.BackColor = Color.White
  3789.                     Case "g3"
  3790.                         Position(2, 6) = "0"
  3791.                         pbg1.BackColor = Color.Gray
  3792.                         pbg2.BackColor = Color.White
  3793.                         pbg3.BackColor = Color.Gray
  3794.                         pbg4.BackColor = Color.White
  3795.                         pbg5.BackColor = Color.Gray
  3796.                         pbg6.BackColor = Color.White
  3797.                         pbg7.BackColor = Color.Gray
  3798.                         pbg8.BackColor = Color.White
  3799.                         pba3.BackColor = Color.Gray
  3800.                         pbb3.BackColor = Color.White
  3801.                         pbc3.BackColor = Color.Gray
  3802.                         pbe3.BackColor = Color.Gray
  3803.                         pbf3.BackColor = Color.White
  3804.                         pbd3.BackColor = Color.White
  3805.                         pbh3.BackColor = Color.White
  3806.                     Case "h3"
  3807.                         Position(2, 7) = "0"
  3808.                         pbh1.BackColor = Color.White
  3809.                         pbh2.BackColor = Color.Gray
  3810.                         pbh3.BackColor = Color.White
  3811.                         pbh4.BackColor = Color.Gray
  3812.                         pbh5.BackColor = Color.White
  3813.                         pbh6.BackColor = Color.Gray
  3814.                         pbh7.BackColor = Color.White
  3815.                         pbh8.BackColor = Color.Gray
  3816.                         pba3.BackColor = Color.Gray
  3817.                         pbb3.BackColor = Color.White
  3818.                         pbc3.BackColor = Color.Gray
  3819.                         pbe3.BackColor = Color.Gray
  3820.                         pbf3.BackColor = Color.White
  3821.                         pbg3.BackColor = Color.Gray
  3822.                         pbd3.BackColor = Color.White
  3823.                 End Select
  3824.             ElseIf PieceToBeMoved = "whknight" Then
  3825.                 pba3.Image = Image.FromFile("whiteknight.cur")
  3826.                 Position(2, 0) = "whknight"
  3827.                 If Not (pbb1.Image Is Nothing) Then
  3828.                     pbb1.Image.Dispose()
  3829.                     pbb1.Image = Nothing
  3830.                     Position(0, 1) = "0"
  3831.                 End If
  3832.             ElseIf PieceToBeMoved = "blknight" Then
  3833.                 pba3.Image = Image.FromFile("blackknight.cur")
  3834.             ElseIf PieceToBeMoved = "whbishop" Then
  3835.                 pba3.Image = Image.FromFile("whitebishop.cur")
  3836.             ElseIf PieceToBeMoved = "blbishop" Then
  3837.                 pba3.Image = Image.FromFile("blackbishop.cur")
  3838.             ElseIf PieceToBeMoved = "whqueen" Then
  3839.                 pba3.Image = Image.FromFile("whitequeen.cur")
  3840.             ElseIf PieceToBeMoved = "blqueen" Then
  3841.                 pba3.Image = Image.FromFile("blackqueen.cur")
  3842.             ElseIf PieceToBeMoved = "whking" Then
  3843.                 pba3.Image = Image.FromFile("whiteking.cur")
  3844.             ElseIf PieceToBeMoved = "blking" Then
  3845.                 pba3.Image = Image.FromFile("blackking.cur")
  3846.             End If
  3847.         End If
  3848.     End Sub
  3849.  
  3850.     Private Sub pbb3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb3.Click
  3851.         piece = CheckPiece(2, 1)
  3852.         If pbb3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3853.             If PieceToBeMoved = "whpawn" Then
  3854.                 pbb3.Image = Image.FromFile("whitepawn.cur")
  3855.                 If square = "b2" Then
  3856.                     pbb2.Image = Nothing
  3857.                 End If
  3858.             ElseIf PieceToBeMoved = "blpawn" Then
  3859.                 pbb3.Image = Image.FromFile("blackpawn.cur")
  3860.                 If square = "b4" Then
  3861.                     pbb4.Image = Nothing
  3862.                 End If
  3863.             ElseIf PieceToBeMoved = "whrook" Then
  3864.                 pbb3.Image = Image.FromFile("whiterook.cur")
  3865.                 Select Case square
  3866.                     Case "b4"
  3867.                         pbb4.Image = Nothing
  3868.                 End Select
  3869.             ElseIf PieceToBeMoved = "blrook" Then
  3870.                 pbb3.Image = Image.FromFile("blackrook.cur")
  3871.             ElseIf PieceToBeMoved = "whknight" Then
  3872.                 pbb3.Image = Image.FromFile("whiteknight.cur")
  3873.             ElseIf PieceToBeMoved = "blknight" Then
  3874.                 pbb3.Image = Image.FromFile("blackknight.cur")
  3875.             ElseIf PieceToBeMoved = "whbishop" Then
  3876.                 pbb3.Image = Image.FromFile("whitebishop.cur")
  3877.             ElseIf PieceToBeMoved = "blbishop" Then
  3878.                 pbb3.Image = Image.FromFile("blackbishop.cur")
  3879.             ElseIf PieceToBeMoved = "whqueen" Then
  3880.                 pbb3.Image = Image.FromFile("whitequeen.cur")
  3881.             ElseIf PieceToBeMoved = "blqueen" Then
  3882.                 pbb3.Image = Image.FromFile("blackqueen.cur")
  3883.             ElseIf PieceToBeMoved = "whking" Then
  3884.                 pbb3.Image = Image.FromFile("whiteking.cur")
  3885.             ElseIf PieceToBeMoved = "blking" Then
  3886.                 pbb3.Image = Image.FromFile("blackking.cur")
  3887.             End If
  3888.         End If
  3889.     End Sub
  3890.  
  3891.     Private Sub pbc3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc3.Click
  3892.         piece = CheckPiece(2, 2)
  3893.         If pbc3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3894.             If PieceToBeMoved = "whpawn" Then
  3895.                 pbc3.Image = Image.FromFile("whitepawn.cur")
  3896.             ElseIf PieceToBeMoved = "blpawn" Then
  3897.                 pbc3.Image = Image.FromFile("blackpawn.cur")
  3898.             ElseIf PieceToBeMoved = "whrook" Then
  3899.                 pbc3.Image = Image.FromFile("whiterook.cur")
  3900.             ElseIf PieceToBeMoved = "blrook" Then
  3901.                 pbc3.Image = Image.FromFile("blackrook.cur")
  3902.             ElseIf PieceToBeMoved = "whknight" Then
  3903.                 pbc3.Image = Image.FromFile("whiteknight.cur")
  3904.                 Position(2, 2) = "whknight"
  3905.                 Select Case square
  3906.                     Case "b1"
  3907.                         pbb1.Image = Nothing
  3908.                         Position(0, 1) = "0"
  3909.                     Case "b5"
  3910.                         pbb5.Image = Nothing
  3911.                         Position(4, 1) = "0"
  3912.                     Case "a4"
  3913.                         pba4.Image = Nothing
  3914.                         Position(3, 0) = "0"
  3915.                     Case "a2"
  3916.                         pba2.Image = Nothing
  3917.                         Position(1, 0) = "0"
  3918.                     Case "d1"
  3919.                         pbd1.Image = Nothing
  3920.                         Position(0, 3) = "0"
  3921.                     Case "e2"
  3922.                         pbe2.Image = Nothing
  3923.                         Position(1, 4) = "0"
  3924.                     Case "d5"
  3925.                         pbd5.Image = Nothing
  3926.                         Position(4, 3) = "0"
  3927.                     Case "e4"
  3928.                         pbe4.Image = Nothing
  3929.                         Position(3, 4) = "0"
  3930.                 End Select
  3931.             ElseIf PieceToBeMoved = "blknight" Then
  3932.                 pbc3.Image = Image.FromFile("blackknight.cur")
  3933.                 Position(2, 2) = "blknight"
  3934.                 Select Case square
  3935.                     Case "b1"
  3936.                         pbb1.Image = Nothing
  3937.                         Position(0, 1) = "0"
  3938.                     Case "b5"
  3939.                         pbb5.Image = Nothing
  3940.                         Position(4, 1) = "0"
  3941.                     Case "a4"
  3942.                         pba4.Image = Nothing
  3943.                         Position(3, 0) = "0"
  3944.                     Case "a2"
  3945.                         pba2.Image = Nothing
  3946.                         Position(1, 0) = "0"
  3947.                     Case "d1"
  3948.                         pbd1.Image = Nothing
  3949.                         Position(0, 3) = "0"
  3950.                     Case "e2"
  3951.                         pbe2.Image = Nothing
  3952.                         Position(1, 4) = "0"
  3953.                     Case "d5"
  3954.                         pbd5.Image = Nothing
  3955.                         Position(4, 3) = "0"
  3956.                     Case "e4"
  3957.                         pbe4.Image = Nothing
  3958.                         Position(3, 4) = "0"
  3959.                 End Select
  3960.             ElseIf PieceToBeMoved = "whbishop" Then
  3961.                 pbc3.Image = Image.FromFile("whitebishop.cur")
  3962.                 Select Case square
  3963.  
  3964.                 End Select
  3965.             ElseIf PieceToBeMoved = "blbishop" Then
  3966.                 pbc3.Image = Image.FromFile("blackbishop.cur")
  3967.             ElseIf PieceToBeMoved = "whqueen" Then
  3968.                 pbc3.Image = Image.FromFile("whitequeen.cur")
  3969.             ElseIf PieceToBeMoved = "blqueen" Then
  3970.                 pbc3.Image = Image.FromFile("blackqueen.cur")
  3971.             ElseIf PieceToBeMoved = "whking" Then
  3972.                 pbc3.Image = Image.FromFile("whiteking.cur")
  3973.             ElseIf PieceToBeMoved = "blking" Then
  3974.                 pbc3.Image = Image.FromFile("blackking.cur")
  3975.             End If
  3976.         End If
  3977.     End Sub
  3978.  
  3979.     Private Sub pbd3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd3.Click
  3980.         piece = CheckPiece(2, 3)
  3981.         If pbd3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  3982.             If PieceToBeMoved = "whpawn" Then
  3983.                 pbd3.Image = Image.FromFile("whitepawn.cur")
  3984.             ElseIf PieceToBeMoved = "blpawn" Then
  3985.                 pbd3.Image = Image.FromFile("blackpawn.cur")
  3986.             ElseIf PieceToBeMoved = "whrook" Then
  3987.                 pbd3.Image = Image.FromFile("whiterook.cur")
  3988.             ElseIf PieceToBeMoved = "blrook" Then
  3989.                 pbd3.Image = Image.FromFile("blackrook.cur")
  3990.             ElseIf PieceToBeMoved = "whknight" Then
  3991.                 pbd3.Image = Image.FromFile("whiteknight.cur")
  3992.             ElseIf PieceToBeMoved = "blknight" Then
  3993.                 pbd3.Image = Image.FromFile("blackknight.cur")
  3994.             ElseIf PieceToBeMoved = "whbishop" Then
  3995.                 pbd3.Image = Image.FromFile("whitebishop.cur")
  3996.             ElseIf PieceToBeMoved = "blbishop" Then
  3997.                 pbd3.Image = Image.FromFile("blackbishop.cur")
  3998.             ElseIf PieceToBeMoved = "whqueen" Then
  3999.                 pbd3.Image = Image.FromFile("whitequeen.cur")
  4000.             ElseIf PieceToBeMoved = "blqueen" Then
  4001.                 pbd3.Image = Image.FromFile("blackqueen.cur")
  4002.             ElseIf PieceToBeMoved = "whking" Then
  4003.                 pbd3.Image = Image.FromFile("whiteking.cur")
  4004.             ElseIf PieceToBeMoved = "blking" Then
  4005.                 pbd3.Image = Image.FromFile("blackking.cur")
  4006.             End If
  4007.         End If
  4008.     End Sub
  4009.  
  4010.     Private Sub pbe3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe3.Click
  4011.         piece = CheckPiece(2, 4)
  4012.         If pbe3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4013.             If PieceToBeMoved = "whpawn" Then
  4014.                 pbe3.Image = Image.FromFile("whitepawn.cur")
  4015.             ElseIf PieceToBeMoved = "blpawn" Then
  4016.                 pbe3.Image = Image.FromFile("blackpawn.cur")
  4017.             ElseIf PieceToBeMoved = "whrook" Then
  4018.                 pbe3.Image = Image.FromFile("whiterook.cur")
  4019.             ElseIf PieceToBeMoved = "blrook" Then
  4020.                 pbe3.Image = Image.FromFile("blackrook.cur")
  4021.             ElseIf PieceToBeMoved = "whknight" Then
  4022.                 pbe3.Image = Image.FromFile("whiteknight.cur")
  4023.             ElseIf PieceToBeMoved = "blknight" Then
  4024.                 pbe3.Image = Image.FromFile("blackknight.cur")
  4025.             ElseIf PieceToBeMoved = "whbishop" Then
  4026.                 pbe3.Image = Image.FromFile("whitebishop.cur")
  4027.             ElseIf PieceToBeMoved = "blbishop" Then
  4028.                 pbe3.Image = Image.FromFile("blackbishop.cur")
  4029.             ElseIf PieceToBeMoved = "whqueen" Then
  4030.                 pbe3.Image = Image.FromFile("whitequeen.cur")
  4031.             ElseIf PieceToBeMoved = "blqueen" Then
  4032.                 pbe3.Image = Image.FromFile("blackqueen.cur")
  4033.             ElseIf PieceToBeMoved = "whking" Then
  4034.                 pbe3.Image = Image.FromFile("whiteking.cur")
  4035.             ElseIf PieceToBeMoved = "blking" Then
  4036.                 pbe3.Image = Image.FromFile("blackking.cur")
  4037.             End If
  4038.         End If
  4039.     End Sub
  4040.  
  4041.     Private Sub pbf3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf3.Click
  4042.         piece = CheckPiece(2, 5)
  4043.         If pbf3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4044.             If PieceToBeMoved = "whpawn" Then
  4045.                 pbf3.Image = Image.FromFile("whitepawn.cur")
  4046.             ElseIf PieceToBeMoved = "blpawn" Then
  4047.                 pbf3.Image = Image.FromFile("blackpawn.cur")
  4048.             ElseIf PieceToBeMoved = "whrook" Then
  4049.                 pbf3.Image = Image.FromFile("whiterook.cur")
  4050.             ElseIf PieceToBeMoved = "blrook" Then
  4051.                 pbf3.Image = Image.FromFile("blackrook.cur")
  4052.             ElseIf PieceToBeMoved = "whknight" Then
  4053.                 pbf3.Image = Image.FromFile("whiteknight.cur")
  4054.             ElseIf PieceToBeMoved = "blknight" Then
  4055.                 pbf3.Image = Image.FromFile("blackknight.cur")
  4056.             ElseIf PieceToBeMoved = "whbishop" Then
  4057.                 pbf3.Image = Image.FromFile("whitebishop.cur")
  4058.             ElseIf PieceToBeMoved = "blbishop" Then
  4059.                 pbf3.Image = Image.FromFile("blackbishop.cur")
  4060.             ElseIf PieceToBeMoved = "whqueen" Then
  4061.                 pbf3.Image = Image.FromFile("whitequeen.cur")
  4062.             ElseIf PieceToBeMoved = "blqueen" Then
  4063.                 pbf3.Image = Image.FromFile("blackqueen.cur")
  4064.             ElseIf PieceToBeMoved = "whking" Then
  4065.                 pbf3.Image = Image.FromFile("whiteking.cur")
  4066.             ElseIf PieceToBeMoved = "blking" Then
  4067.                 pbf3.Image = Image.FromFile("blackking.cur")
  4068.             End If
  4069.         End If
  4070.     End Sub
  4071.  
  4072.     Private Sub pbg3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg3.Click
  4073.         piece = CheckPiece(2, 6)
  4074.         If pbg3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4075.             If PieceToBeMoved = "whpawn" Then
  4076.                 pbg3.Image = Image.FromFile("whitepawn.cur")
  4077.             ElseIf PieceToBeMoved = "blpawn" Then
  4078.                 pbg3.Image = Image.FromFile("blackpawn.cur")
  4079.             ElseIf PieceToBeMoved = "whrook" Then
  4080.                 pbg3.Image = Image.FromFile("whiterook.cur")
  4081.             ElseIf PieceToBeMoved = "blrook" Then
  4082.                 pbg3.Image = Image.FromFile("blackrook.cur")
  4083.             ElseIf PieceToBeMoved = "whknight" Then
  4084.                 pbg3.Image = Image.FromFile("whiteknight.cur")
  4085.             ElseIf PieceToBeMoved = "blknight" Then
  4086.                 pbg3.Image = Image.FromFile("blackknight.cur")
  4087.             ElseIf PieceToBeMoved = "whbishop" Then
  4088.                 pbg3.Image = Image.FromFile("whitebishop.cur")
  4089.             ElseIf PieceToBeMoved = "blbishop" Then
  4090.                 pbg3.Image = Image.FromFile("blackbishop.cur")
  4091.             ElseIf PieceToBeMoved = "whqueen" Then
  4092.                 pbg3.Image = Image.FromFile("whitequeen.cur")
  4093.             ElseIf PieceToBeMoved = "blqueen" Then
  4094.                 pbg3.Image = Image.FromFile("blackqueen.cur")
  4095.             ElseIf PieceToBeMoved = "whking" Then
  4096.                 pbg3.Image = Image.FromFile("whiteking.cur")
  4097.             ElseIf PieceToBeMoved = "blking" Then
  4098.                 pbg3.Image = Image.FromFile("blackking.cur")
  4099.             End If
  4100.         End If
  4101.     End Sub
  4102.  
  4103.     Private Sub pbh3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh3.Click
  4104.         piece = CheckPiece(2, 7)
  4105.         If pbh3.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4106.             If PieceToBeMoved = "whpawn" Then
  4107.                 pbh3.Image = Image.FromFile("whitepawn.cur")
  4108.             ElseIf PieceToBeMoved = "blpawn" Then
  4109.                 pbh3.Image = Image.FromFile("blackpawn.cur")
  4110.             ElseIf PieceToBeMoved = "whrook" Then
  4111.                 pbh3.Image = Image.FromFile("whiterook.cur")
  4112.             ElseIf PieceToBeMoved = "blrook" Then
  4113.                 pbh3.Image = Image.FromFile("blackrook.cur")
  4114.             ElseIf PieceToBeMoved = "whknight" Then
  4115.                 pbh3.Image = Image.FromFile("whiteknight.cur")
  4116.             ElseIf PieceToBeMoved = "blknight" Then
  4117.                 pbh3.Image = Image.FromFile("blackknight.cur")
  4118.             ElseIf PieceToBeMoved = "whbishop" Then
  4119.                 pbh3.Image = Image.FromFile("whitebishop.cur")
  4120.             ElseIf PieceToBeMoved = "blbishop" Then
  4121.                 pbh3.Image = Image.FromFile("blackbishop.cur")
  4122.             ElseIf PieceToBeMoved = "whqueen" Then
  4123.                 pbh3.Image = Image.FromFile("whitequeen.cur")
  4124.             ElseIf PieceToBeMoved = "blqueen" Then
  4125.                 pbh3.Image = Image.FromFile("blackqueen.cur")
  4126.             ElseIf PieceToBeMoved = "whking" Then
  4127.                 pbh3.Image = Image.FromFile("whiteking.cur")
  4128.             ElseIf PieceToBeMoved = "blking" Then
  4129.                 pbh3.Image = Image.FromFile("blackking.cur")
  4130.             End If
  4131.         End If
  4132.     End Sub
  4133.  
  4134.     Private Sub pba4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba4.Click
  4135.         piece = CheckPiece(3, 0)
  4136.         If pba4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4137.             If PieceToBeMoved = "whpawn" Then
  4138.                 pba4.Image = Image.FromFile("whitepawn.cur")
  4139.                 Call OriginalColour()
  4140.             ElseIf PieceToBeMoved = "blpawn" Then
  4141.                 pba4.Image = Image.FromFile("blackpawn.cur")
  4142.             ElseIf PieceToBeMoved = "whrook" Then
  4143.                 pba4.Image = Image.FromFile("whiterook.cur")
  4144.             ElseIf PieceToBeMoved = "blrook" Then
  4145.                 pba4.Image = Image.FromFile("blackrook.cur")
  4146.             ElseIf PieceToBeMoved = "whknight" Then
  4147.                 pba4.Image = Image.FromFile("whiteknight.cur")
  4148.             ElseIf PieceToBeMoved = "blknight" Then
  4149.                 pba4.Image = Image.FromFile("blackknight.cur")
  4150.             ElseIf PieceToBeMoved = "whbishop" Then
  4151.                 pba4.Image = Image.FromFile("whitebishop.cur")
  4152.             ElseIf PieceToBeMoved = "blbishop" Then
  4153.                 pba4.Image = Image.FromFile("blackbishop.cur")
  4154.             ElseIf PieceToBeMoved = "whqueen" Then
  4155.                 pba4.Image = Image.FromFile("whitequeen.cur")
  4156.             ElseIf PieceToBeMoved = "blqueen" Then
  4157.                 pba4.Image = Image.FromFile("blackqueen.cur")
  4158.             ElseIf PieceToBeMoved = "whking" Then
  4159.                 pba4.Image = Image.FromFile("whiteking.cur")
  4160.             ElseIf PieceToBeMoved = "blking" Then
  4161.                 pba4.Image = Image.FromFile("blackking.cur")
  4162.             End If
  4163.         End If
  4164.         pba4.BackColor = Color.White
  4165.     End Sub
  4166.  
  4167.     Private Sub pbb4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb4.Click
  4168.         piece = CheckPiece(3, 1)
  4169.         If pbb4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4170.             If PieceToBeMoved = "whpawn" Then
  4171.                 pbb4.Image = Image.FromFile("whitepawn.cur")
  4172.             ElseIf PieceToBeMoved = "blpawn" Then
  4173.                 pbb4.Image = Image.FromFile("blackpawn.cur")
  4174.             ElseIf PieceToBeMoved = "whrook" Then
  4175.                 pbb4.Image = Image.FromFile("whiterook.cur")
  4176.             ElseIf PieceToBeMoved = "blrook" Then
  4177.                 pbb4.Image = Image.FromFile("blackrook.cur")
  4178.             ElseIf PieceToBeMoved = "whknight" Then
  4179.                 pbb4.Image = Image.FromFile("whiteknight.cur")
  4180.             ElseIf PieceToBeMoved = "blknight" Then
  4181.                 pbb4.Image = Image.FromFile("blackknight.cur")
  4182.             ElseIf PieceToBeMoved = "whbishop" Then
  4183.                 pbb4.Image = Image.FromFile("whitebishop.cur")
  4184.             ElseIf PieceToBeMoved = "blbishop" Then
  4185.                 pbb4.Image = Image.FromFile("blackbishop.cur")
  4186.             ElseIf PieceToBeMoved = "whqueen" Then
  4187.                 pbb4.Image = Image.FromFile("whitequeen.cur")
  4188.             ElseIf PieceToBeMoved = "blqueen" Then
  4189.                 pbb4.Image = Image.FromFile("blackqueen.cur")
  4190.             ElseIf PieceToBeMoved = "whking" Then
  4191.                 pbb4.Image = Image.FromFile("whiteking.cur")
  4192.             ElseIf PieceToBeMoved = "blking" Then
  4193.                 pbb4.Image = Image.FromFile("blackking.cur")
  4194.             End If
  4195.         End If
  4196.     End Sub
  4197.  
  4198.     Private Sub pbc4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc4.Click
  4199.         piece = CheckPiece(3, 2)
  4200.         If pbc4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4201.             If PieceToBeMoved = "whpawn" Then
  4202.                 pbc4.Image = Image.FromFile("whitepawn.cur")
  4203.             ElseIf PieceToBeMoved = "blpawn" Then
  4204.                 pbc4.Image = Image.FromFile("blackpawn.cur")
  4205.             ElseIf PieceToBeMoved = "whrook" Then
  4206.                 pbc4.Image = Image.FromFile("whiterook.cur")
  4207.             ElseIf PieceToBeMoved = "blrook" Then
  4208.                 pbc4.Image = Image.FromFile("blackrook.cur")
  4209.             ElseIf PieceToBeMoved = "whknight" Then
  4210.                 pbc4.Image = Image.FromFile("whiteknight.cur")
  4211.             ElseIf PieceToBeMoved = "blknight" Then
  4212.                 pbc4.Image = Image.FromFile("blackknight.cur")
  4213.             ElseIf PieceToBeMoved = "whbishop" Then
  4214.                 pbc4.Image = Image.FromFile("whitebishop.cur")
  4215.             ElseIf PieceToBeMoved = "blbishop" Then
  4216.                 pbc4.Image = Image.FromFile("blackbishop.cur")
  4217.             ElseIf PieceToBeMoved = "whqueen" Then
  4218.                 pbc4.Image = Image.FromFile("whitequeen.cur")
  4219.             ElseIf PieceToBeMoved = "blqueen" Then
  4220.                 pbc4.Image = Image.FromFile("blackqueen.cur")
  4221.             ElseIf PieceToBeMoved = "whking" Then
  4222.                 pbc4.Image = Image.FromFile("whiteking.cur")
  4223.             ElseIf PieceToBeMoved = "blking" Then
  4224.                 pbc4.Image = Image.FromFile("blackking.cur")
  4225.             End If
  4226.         End If
  4227.     End Sub
  4228.  
  4229.     Private Sub pbd4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd4.Click
  4230.         piece = CheckPiece(3, 3)
  4231.         If pbd4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4232.             If PieceToBeMoved = "whpawn" Then
  4233.                 pbd4.Image = Image.FromFile("whitepawn.cur")
  4234.             ElseIf PieceToBeMoved = "blpawn" Then
  4235.                 pbd4.Image = Image.FromFile("blackpawn.cur")
  4236.             ElseIf PieceToBeMoved = "whrook" Then
  4237.                 pbd4.Image = Image.FromFile("whiterook.cur")
  4238.             ElseIf PieceToBeMoved = "blrook" Then
  4239.                 pbd4.Image = Image.FromFile("blackrook.cur")
  4240.             ElseIf PieceToBeMoved = "whknight" Then
  4241.                 pbd4.Image = Image.FromFile("whiteknight.cur")
  4242.             ElseIf PieceToBeMoved = "blknight" Then
  4243.                 pbd4.Image = Image.FromFile("blackknight.cur")
  4244.             ElseIf PieceToBeMoved = "whbishop" Then
  4245.                 pbd4.Image = Image.FromFile("whitebishop.cur")
  4246.             ElseIf PieceToBeMoved = "blbishop" Then
  4247.                 pbd4.Image = Image.FromFile("blackbishop.cur")
  4248.             ElseIf PieceToBeMoved = "whqueen" Then
  4249.                 pbd4.Image = Image.FromFile("whitequeen.cur")
  4250.             ElseIf PieceToBeMoved = "blqueen" Then
  4251.                 pbd4.Image = Image.FromFile("blackqueen.cur")
  4252.             ElseIf PieceToBeMoved = "whking" Then
  4253.                 pbd4.Image = Image.FromFile("whiteking.cur")
  4254.             ElseIf PieceToBeMoved = "blking" Then
  4255.                 pbd4.Image = Image.FromFile("blackking.cur")
  4256.             End If
  4257.         End If
  4258.     End Sub
  4259.  
  4260.     Private Sub pbe4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe4.Click
  4261.         piece = CheckPiece(3, 4)
  4262.         If pbe4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4263.             If PieceToBeMoved = "whpawn" Then
  4264.                 pbe4.Image = Image.FromFile("whitepawn.cur")
  4265.             ElseIf PieceToBeMoved = "blpawn" Then
  4266.                 pbe4.Image = Image.FromFile("blackpawn.cur")
  4267.             ElseIf PieceToBeMoved = "whrook" Then
  4268.                 pbe4.Image = Image.FromFile("whiterook.cur")
  4269.             ElseIf PieceToBeMoved = "blrook" Then
  4270.                 pbe4.Image = Image.FromFile("blackrook.cur")
  4271.             ElseIf PieceToBeMoved = "whknight" Then
  4272.                 pbe4.Image = Image.FromFile("whiteknight.cur")
  4273.             ElseIf PieceToBeMoved = "blknight" Then
  4274.                 pbe4.Image = Image.FromFile("blackknight.cur")
  4275.             ElseIf PieceToBeMoved = "whbishop" Then
  4276.                 pbe4.Image = Image.FromFile("whitebishop.cur")
  4277.             ElseIf PieceToBeMoved = "blbishop" Then
  4278.                 pbe4.Image = Image.FromFile("blackbishop.cur")
  4279.             ElseIf PieceToBeMoved = "whqueen" Then
  4280.                 pbe4.Image = Image.FromFile("whitequeen.cur")
  4281.             ElseIf PieceToBeMoved = "blqueen" Then
  4282.                 pbe4.Image = Image.FromFile("blackqueen.cur")
  4283.             ElseIf PieceToBeMoved = "whking" Then
  4284.                 pbe4.Image = Image.FromFile("whiteking.cur")
  4285.             ElseIf PieceToBeMoved = "blking" Then
  4286.                 pbe4.Image = Image.FromFile("blackking.cur")
  4287.             End If
  4288.         End If
  4289.     End Sub
  4290.  
  4291.     Private Sub pbf4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf4.Click
  4292.         piece = CheckPiece(3, 5)
  4293.         If pbf4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4294.             If PieceToBeMoved = "whpawn" Then
  4295.                 pbf4.Image = Image.FromFile("whitepawn.cur")
  4296.             ElseIf PieceToBeMoved = "blpawn" Then
  4297.                 pbf4.Image = Image.FromFile("blackpawn.cur")
  4298.             ElseIf PieceToBeMoved = "whrook" Then
  4299.                 pbf4.Image = Image.FromFile("whiterook.cur")
  4300.             ElseIf PieceToBeMoved = "blrook" Then
  4301.                 pbf4.Image = Image.FromFile("blackrook.cur")
  4302.             ElseIf PieceToBeMoved = "whknight" Then
  4303.                 pbf4.Image = Image.FromFile("whiteknight.cur")
  4304.             ElseIf PieceToBeMoved = "blknight" Then
  4305.                 pbf4.Image = Image.FromFile("blackknight.cur")
  4306.             ElseIf PieceToBeMoved = "whbishop" Then
  4307.                 pbf4.Image = Image.FromFile("whitebishop.cur")
  4308.             ElseIf PieceToBeMoved = "blbishop" Then
  4309.                 pbf4.Image = Image.FromFile("blackbishop.cur")
  4310.             ElseIf PieceToBeMoved = "whqueen" Then
  4311.                 pbf4.Image = Image.FromFile("whitequeen.cur")
  4312.             ElseIf PieceToBeMoved = "blqueen" Then
  4313.                 pbf4.Image = Image.FromFile("blackqueen.cur")
  4314.             ElseIf PieceToBeMoved = "whking" Then
  4315.                 pbf4.Image = Image.FromFile("whiteking.cur")
  4316.             ElseIf PieceToBeMoved = "blking" Then
  4317.                 pbf4.Image = Image.FromFile("blackking.cur")
  4318.             End If
  4319.         End If
  4320.     End Sub
  4321.  
  4322.     Private Sub pbg4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg4.Click
  4323.         piece = CheckPiece(3, 6)
  4324.         If pbg4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4325.             If PieceToBeMoved = "whpawn" Then
  4326.                 pbg4.Image = Image.FromFile("whitepawn.cur")
  4327.             ElseIf PieceToBeMoved = "blpawn" Then
  4328.                 pbg4.Image = Image.FromFile("blackpawn.cur")
  4329.             ElseIf PieceToBeMoved = "whrook" Then
  4330.                 pbg4.Image = Image.FromFile("whiterook.cur")
  4331.             ElseIf PieceToBeMoved = "blrook" Then
  4332.                 pbg4.Image = Image.FromFile("blackrook.cur")
  4333.             ElseIf PieceToBeMoved = "whknight" Then
  4334.                 pbg4.Image = Image.FromFile("whiteknight.cur")
  4335.             ElseIf PieceToBeMoved = "blknight" Then
  4336.                 pbg4.Image = Image.FromFile("blackknight.cur")
  4337.             ElseIf PieceToBeMoved = "whbishop" Then
  4338.                 pbg4.Image = Image.FromFile("whitebishop.cur")
  4339.             ElseIf PieceToBeMoved = "blbishop" Then
  4340.                 pbg4.Image = Image.FromFile("blackbishop.cur")
  4341.             ElseIf PieceToBeMoved = "whqueen" Then
  4342.                 pbg4.Image = Image.FromFile("whitequeen.cur")
  4343.             ElseIf PieceToBeMoved = "blqueen" Then
  4344.                 pbg4.Image = Image.FromFile("blackqueen.cur")
  4345.             ElseIf PieceToBeMoved = "whking" Then
  4346.                 pbg4.Image = Image.FromFile("whiteking.cur")
  4347.             ElseIf PieceToBeMoved = "blking" Then
  4348.                 pbg4.Image = Image.FromFile("blackking.cur")
  4349.             End If
  4350.         End If
  4351.     End Sub
  4352.  
  4353.     Private Sub pbh4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh4.Click
  4354.         piece = CheckPiece(3, 7)
  4355.         If pbh4.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4356.             If PieceToBeMoved = "whpawn" Then
  4357.                 pbh4.Image = Image.FromFile("whitepawn.cur")
  4358.             ElseIf PieceToBeMoved = "blpawn" Then
  4359.                 pbh4.Image = Image.FromFile("blackpawn.cur")
  4360.             ElseIf PieceToBeMoved = "whrook" Then
  4361.                 pbh4.Image = Image.FromFile("whiterook.cur")
  4362.             ElseIf PieceToBeMoved = "blrook" Then
  4363.                 pbh4.Image = Image.FromFile("blackrook.cur")
  4364.             ElseIf PieceToBeMoved = "whknight" Then
  4365.                 pbh4.Image = Image.FromFile("whiteknight.cur")
  4366.             ElseIf PieceToBeMoved = "blknight" Then
  4367.                 pbh4.Image = Image.FromFile("blackknight.cur")
  4368.             ElseIf PieceToBeMoved = "whbishop" Then
  4369.                 pbh4.Image = Image.FromFile("whitebishop.cur")
  4370.             ElseIf PieceToBeMoved = "blbishop" Then
  4371.                 pbh4.Image = Image.FromFile("blackbishop.cur")
  4372.             ElseIf PieceToBeMoved = "whqueen" Then
  4373.                 pbh4.Image = Image.FromFile("whitequeen.cur")
  4374.             ElseIf PieceToBeMoved = "blqueen" Then
  4375.                 pbh4.Image = Image.FromFile("blackqueen.cur")
  4376.             ElseIf PieceToBeMoved = "whking" Then
  4377.                 pbh4.Image = Image.FromFile("whiteking.cur")
  4378.             ElseIf PieceToBeMoved = "blking" Then
  4379.                 pbh4.Image = Image.FromFile("blackking.cur")
  4380.             End If
  4381.         End If
  4382.     End Sub
  4383.  
  4384.     Private Sub pba5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba5.Click
  4385.         piece = CheckPiece(4, 0)
  4386.         If pba5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4387.             If PieceToBeMoved = "whpawn" Then
  4388.                 pba5.Image = Image.FromFile("whitepawn.cur")
  4389.             ElseIf PieceToBeMoved = "blpawn" Then
  4390.                 pba5.Image = Image.FromFile("blackpawn.cur")
  4391.             ElseIf PieceToBeMoved = "whrook" Then
  4392.                 pba5.Image = Image.FromFile("whiterook.cur")
  4393.             ElseIf PieceToBeMoved = "blrook" Then
  4394.                 pba5.Image = Image.FromFile("blackrook.cur")
  4395.             ElseIf PieceToBeMoved = "whknight" Then
  4396.                 pba5.Image = Image.FromFile("whiteknight.cur")
  4397.             ElseIf PieceToBeMoved = "blknight" Then
  4398.                 pba5.Image = Image.FromFile("blackknight.cur")
  4399.             ElseIf PieceToBeMoved = "whbishop" Then
  4400.                 pba5.Image = Image.FromFile("whitebishop.cur")
  4401.             ElseIf PieceToBeMoved = "blbishop" Then
  4402.                 pba5.Image = Image.FromFile("blackbishop.cur")
  4403.             ElseIf PieceToBeMoved = "whqueen" Then
  4404.                 pba5.Image = Image.FromFile("whitequeen.cur")
  4405.             ElseIf PieceToBeMoved = "blqueen" Then
  4406.                 pba5.Image = Image.FromFile("blackqueen.cur")
  4407.             ElseIf PieceToBeMoved = "whking" Then
  4408.                 pba5.Image = Image.FromFile("whiteking.cur")
  4409.             ElseIf PieceToBeMoved = "blking" Then
  4410.                 pba5.Image = Image.FromFile("blackking.cur")
  4411.             End If
  4412.         End If
  4413.     End Sub
  4414.  
  4415.     Private Sub pbb5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb5.Click
  4416.         piece = CheckPiece(4, 1)
  4417.         If pbb5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4418.             If PieceToBeMoved = "whpawn" Then
  4419.                 pbb5.Image = Image.FromFile("whitepawn.cur")
  4420.             ElseIf PieceToBeMoved = "blpawn" Then
  4421.                 pbb5.Image = Image.FromFile("blackpawn.cur")
  4422.             ElseIf PieceToBeMoved = "whrook" Then
  4423.                 pbb5.Image = Image.FromFile("whiterook.cur")
  4424.             ElseIf PieceToBeMoved = "blrook" Then
  4425.                 pbb5.Image = Image.FromFile("blackrook.cur")
  4426.             ElseIf PieceToBeMoved = "whknight" Then
  4427.                 pbb5.Image = Image.FromFile("whiteknight.cur")
  4428.             ElseIf PieceToBeMoved = "blknight" Then
  4429.                 pbb5.Image = Image.FromFile("blackknight.cur")
  4430.             ElseIf PieceToBeMoved = "whbishop" Then
  4431.                 pbb5.Image = Image.FromFile("whitebishop.cur")
  4432.             ElseIf PieceToBeMoved = "blbishop" Then
  4433.                 pbb5.Image = Image.FromFile("blackbishop.cur")
  4434.             ElseIf PieceToBeMoved = "whqueen" Then
  4435.                 pbb5.Image = Image.FromFile("whitequeen.cur")
  4436.             ElseIf PieceToBeMoved = "blqueen" Then
  4437.                 pbb5.Image = Image.FromFile("blackqueen.cur")
  4438.             ElseIf PieceToBeMoved = "whking" Then
  4439.                 pbb5.Image = Image.FromFile("whiteking.cur")
  4440.             ElseIf PieceToBeMoved = "blking" Then
  4441.                 pbb5.Image = Image.FromFile("blackking.cur")
  4442.             End If
  4443.         End If
  4444.     End Sub
  4445.  
  4446.     Private Sub pbc5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc5.Click
  4447.         piece = CheckPiece(4, 2)
  4448.         If pbc5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4449.             If PieceToBeMoved = "whpawn" Then
  4450.                 pbc5.Image = Image.FromFile("whitepawn.cur")
  4451.             ElseIf PieceToBeMoved = "blpawn" Then
  4452.                 pbc5.Image = Image.FromFile("blackpawn.cur")
  4453.             ElseIf PieceToBeMoved = "whrook" Then
  4454.                 pbc5.Image = Image.FromFile("whiterook.cur")
  4455.             ElseIf PieceToBeMoved = "blrook" Then
  4456.                 pbc5.Image = Image.FromFile("blackrook.cur")
  4457.             ElseIf PieceToBeMoved = "whknight" Then
  4458.                 pbc5.Image = Image.FromFile("whiteknight.cur")
  4459.             ElseIf PieceToBeMoved = "blknight" Then
  4460.                 pbc5.Image = Image.FromFile("blackknight.cur")
  4461.             ElseIf PieceToBeMoved = "whbishop" Then
  4462.                 pbc5.Image = Image.FromFile("whitebishop.cur")
  4463.             ElseIf PieceToBeMoved = "blbishop" Then
  4464.                 pbc5.Image = Image.FromFile("blackbishop.cur")
  4465.             ElseIf PieceToBeMoved = "whqueen" Then
  4466.                 pbc5.Image = Image.FromFile("whitequeen.cur")
  4467.             ElseIf PieceToBeMoved = "blqueen" Then
  4468.                 pbc5.Image = Image.FromFile("blackqueen.cur")
  4469.             ElseIf PieceToBeMoved = "whking" Then
  4470.                 pbc5.Image = Image.FromFile("whiteking.cur")
  4471.             ElseIf PieceToBeMoved = "blking" Then
  4472.                 pbc5.Image = Image.FromFile("blackking.cur")
  4473.             End If
  4474.         End If
  4475.     End Sub
  4476.  
  4477.     Private Sub pbd5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd5.Click
  4478.         piece = CheckPiece(4, 3)
  4479.         If pbd5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4480.             If PieceToBeMoved = "whpawn" Then
  4481.                 pbd5.Image = Image.FromFile("whitepawn.cur")
  4482.             ElseIf PieceToBeMoved = "blpawn" Then
  4483.                 pbd5.Image = Image.FromFile("blackpawn.cur")
  4484.             ElseIf PieceToBeMoved = "whrook" Then
  4485.                 pbd5.Image = Image.FromFile("whiterook.cur")
  4486.             ElseIf PieceToBeMoved = "blrook" Then
  4487.                 pbd5.Image = Image.FromFile("blackrook.cur")
  4488.             ElseIf PieceToBeMoved = "whknight" Then
  4489.                 pbd5.Image = Image.FromFile("whiteknight.cur")
  4490.             ElseIf PieceToBeMoved = "blknight" Then
  4491.                 pbd5.Image = Image.FromFile("blackknight.cur")
  4492.             ElseIf PieceToBeMoved = "whbishop" Then
  4493.                 pbd5.Image = Image.FromFile("whitebishop.cur")
  4494.             ElseIf PieceToBeMoved = "blbishop" Then
  4495.                 pbd5.Image = Image.FromFile("blackbishop.cur")
  4496.             ElseIf PieceToBeMoved = "whqueen" Then
  4497.                 pbd5.Image = Image.FromFile("whitequeen.cur")
  4498.             ElseIf PieceToBeMoved = "blqueen" Then
  4499.                 pbd5.Image = Image.FromFile("blackqueen.cur")
  4500.             ElseIf PieceToBeMoved = "whking" Then
  4501.                 pbd5.Image = Image.FromFile("whiteking.cur")
  4502.             ElseIf PieceToBeMoved = "blking" Then
  4503.                 pbd5.Image = Image.FromFile("blackking.cur")
  4504.             End If
  4505.         End If
  4506.     End Sub
  4507.  
  4508.     Private Sub pbe5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe5.Click
  4509.         piece = CheckPiece(4, 4)
  4510.         If pbe5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4511.             If PieceToBeMoved = "whpawn" Then
  4512.                 pbe5.Image = Image.FromFile("whitepawn.cur")
  4513.             ElseIf PieceToBeMoved = "blpawn" Then
  4514.                 pbe5.Image = Image.FromFile("blackpawn.cur")
  4515.             ElseIf PieceToBeMoved = "whrook" Then
  4516.                 pbe5.Image = Image.FromFile("whiterook.cur")
  4517.             ElseIf PieceToBeMoved = "blrook" Then
  4518.                 pbe5.Image = Image.FromFile("blackrook.cur")
  4519.             ElseIf PieceToBeMoved = "whknight" Then
  4520.                 pbe5.Image = Image.FromFile("whiteknight.cur")
  4521.             ElseIf PieceToBeMoved = "blknight" Then
  4522.                 pbe5.Image = Image.FromFile("blackknight.cur")
  4523.             ElseIf PieceToBeMoved = "whbishop" Then
  4524.                 pbe5.Image = Image.FromFile("whitebishop.cur")
  4525.             ElseIf PieceToBeMoved = "blbishop" Then
  4526.                 pbe5.Image = Image.FromFile("blackbishop.cur")
  4527.             ElseIf PieceToBeMoved = "whqueen" Then
  4528.                 pbe5.Image = Image.FromFile("whitequeen.cur")
  4529.             ElseIf PieceToBeMoved = "blqueen" Then
  4530.                 pbe5.Image = Image.FromFile("blackqueen.cur")
  4531.             ElseIf PieceToBeMoved = "whking" Then
  4532.                 pbe5.Image = Image.FromFile("whiteking.cur")
  4533.             ElseIf PieceToBeMoved = "blking" Then
  4534.                 pbe5.Image = Image.FromFile("blackking.cur")
  4535.             End If
  4536.         End If
  4537.     End Sub
  4538.  
  4539.     Private Sub pbf5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf5.Click
  4540.         piece = CheckPiece(4, 5)
  4541.         If pbf5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4542.             If PieceToBeMoved = "whpawn" Then
  4543.                 pbf5.Image = Image.FromFile("whitepawn.cur")
  4544.             ElseIf PieceToBeMoved = "blpawn" Then
  4545.                 pbf5.Image = Image.FromFile("blackpawn.cur")
  4546.             ElseIf PieceToBeMoved = "whrook" Then
  4547.                 pbf5.Image = Image.FromFile("whiterook.cur")
  4548.             ElseIf PieceToBeMoved = "blrook" Then
  4549.                 pbf5.Image = Image.FromFile("blackrook.cur")
  4550.             ElseIf PieceToBeMoved = "whknight" Then
  4551.                 pbf5.Image = Image.FromFile("whiteknight.cur")
  4552.             ElseIf PieceToBeMoved = "blknight" Then
  4553.                 pbf5.Image = Image.FromFile("blackknight.cur")
  4554.             ElseIf PieceToBeMoved = "whbishop" Then
  4555.                 pbf5.Image = Image.FromFile("whitebishop.cur")
  4556.             ElseIf PieceToBeMoved = "blbishop" Then
  4557.                 pbf5.Image = Image.FromFile("blackbishop.cur")
  4558.             ElseIf PieceToBeMoved = "whqueen" Then
  4559.                 pbf5.Image = Image.FromFile("whitequeen.cur")
  4560.             ElseIf PieceToBeMoved = "blqueen" Then
  4561.                 pbf5.Image = Image.FromFile("blackqueen.cur")
  4562.             ElseIf PieceToBeMoved = "whking" Then
  4563.                 pbf5.Image = Image.FromFile("whiteking.cur")
  4564.             ElseIf PieceToBeMoved = "blking" Then
  4565.                 pbf5.Image = Image.FromFile("blackking.cur")
  4566.             End If
  4567.         End If
  4568.     End Sub
  4569.  
  4570.     Private Sub pbg5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg5.Click
  4571.         piece = CheckPiece(4, 6)
  4572.         If pbg5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4573.             If PieceToBeMoved = "whpawn" Then
  4574.                 pbg5.Image = Image.FromFile("whitepawn.cur")
  4575.             ElseIf PieceToBeMoved = "blpawn" Then
  4576.                 pbg5.Image = Image.FromFile("blackpawn.cur")
  4577.             ElseIf PieceToBeMoved = "whrook" Then
  4578.                 pbg5.Image = Image.FromFile("whiterook.cur")
  4579.             ElseIf PieceToBeMoved = "blrook" Then
  4580.                 pbg5.Image = Image.FromFile("blackrook.cur")
  4581.             ElseIf PieceToBeMoved = "whknight" Then
  4582.                 pbg5.Image = Image.FromFile("whiteknight.cur")
  4583.             ElseIf PieceToBeMoved = "blknight" Then
  4584.                 pbg5.Image = Image.FromFile("blackknight.cur")
  4585.             ElseIf PieceToBeMoved = "whbishop" Then
  4586.                 pbg5.Image = Image.FromFile("whitebishop.cur")
  4587.             ElseIf PieceToBeMoved = "blbishop" Then
  4588.                 pbg5.Image = Image.FromFile("blackbishop.cur")
  4589.             ElseIf PieceToBeMoved = "whqueen" Then
  4590.                 pbg5.Image = Image.FromFile("whitequeen.cur")
  4591.             ElseIf PieceToBeMoved = "blqueen" Then
  4592.                 pbg5.Image = Image.FromFile("blackqueen.cur")
  4593.             ElseIf PieceToBeMoved = "whking" Then
  4594.                 pbg5.Image = Image.FromFile("whiteking.cur")
  4595.             ElseIf PieceToBeMoved = "blking" Then
  4596.                 pbg5.Image = Image.FromFile("blackking.cur")
  4597.             End If
  4598.         End If
  4599.     End Sub
  4600.  
  4601.     Private Sub pbh5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh5.Click
  4602.         piece = CheckPiece(4, 7)
  4603.         If pbh5.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4604.             If PieceToBeMoved = "whpawn" Then
  4605.                 pbh5.Image = Image.FromFile("whitepawn.cur")
  4606.             ElseIf PieceToBeMoved = "blpawn" Then
  4607.                 pbh5.Image = Image.FromFile("blackpawn.cur")
  4608.             ElseIf PieceToBeMoved = "whrook" Then
  4609.                 pbh5.Image = Image.FromFile("whiterook.cur")
  4610.             ElseIf PieceToBeMoved = "blrook" Then
  4611.                 pbh5.Image = Image.FromFile("blackrook.cur")
  4612.             ElseIf PieceToBeMoved = "whknight" Then
  4613.                 pbh5.Image = Image.FromFile("whiteknight.cur")
  4614.             ElseIf PieceToBeMoved = "blknight" Then
  4615.                 pbh5.Image = Image.FromFile("blackknight.cur")
  4616.             ElseIf PieceToBeMoved = "whbishop" Then
  4617.                 pbh5.Image = Image.FromFile("whitebishop.cur")
  4618.             ElseIf PieceToBeMoved = "blbishop" Then
  4619.                 pbh5.Image = Image.FromFile("blackbishop.cur")
  4620.             ElseIf PieceToBeMoved = "whqueen" Then
  4621.                 pbh5.Image = Image.FromFile("whitequeen.cur")
  4622.             ElseIf PieceToBeMoved = "blqueen" Then
  4623.                 pbh5.Image = Image.FromFile("blackqueen.cur")
  4624.             ElseIf PieceToBeMoved = "whking" Then
  4625.                 pbh5.Image = Image.FromFile("whiteking.cur")
  4626.             ElseIf PieceToBeMoved = "blking" Then
  4627.                 pbh5.Image = Image.FromFile("blackking.cur")
  4628.             End If
  4629.         End If
  4630.     End Sub
  4631.  
  4632.     Private Sub pba6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba6.Click
  4633.         piece = CheckPiece(5, 0)
  4634.         If pba6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4635.             If PieceToBeMoved = "whpawn" Then
  4636.                 pba6.Image = Image.FromFile("whitepawn.cur")
  4637.             ElseIf PieceToBeMoved = "blpawn" Then
  4638.                 pba6.Image = Image.FromFile("blackpawn.cur")
  4639.             ElseIf PieceToBeMoved = "whrook" Then
  4640.                 pba6.Image = Image.FromFile("whiterook.cur")
  4641.             ElseIf PieceToBeMoved = "blrook" Then
  4642.                 pba6.Image = Image.FromFile("blackrook.cur")
  4643.             ElseIf PieceToBeMoved = "whknight" Then
  4644.                 pba6.Image = Image.FromFile("whiteknight.cur")
  4645.             ElseIf PieceToBeMoved = "blknight" Then
  4646.                 pba6.Image = Image.FromFile("blackknight.cur")
  4647.             ElseIf PieceToBeMoved = "whbishop" Then
  4648.                 pba6.Image = Image.FromFile("whitebishop.cur")
  4649.             ElseIf PieceToBeMoved = "blbishop" Then
  4650.                 pba6.Image = Image.FromFile("blackbishop.cur")
  4651.             ElseIf PieceToBeMoved = "whqueen" Then
  4652.                 pba6.Image = Image.FromFile("whitequeen.cur")
  4653.             ElseIf PieceToBeMoved = "blqueen" Then
  4654.                 pba6.Image = Image.FromFile("blackqueen.cur")
  4655.             ElseIf PieceToBeMoved = "whking" Then
  4656.                 pba6.Image = Image.FromFile("whiteking.cur")
  4657.             ElseIf PieceToBeMoved = "blking" Then
  4658.                 pba6.Image = Image.FromFile("blackking.cur")
  4659.             End If
  4660.         End If
  4661.     End Sub
  4662.  
  4663.     Private Sub pbb6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb6.Click
  4664.         piece = CheckPiece(5, 1)
  4665.         If pbb6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4666.             If PieceToBeMoved = "whpawn" Then
  4667.                 pbb6.Image = Image.FromFile("whitepawn.cur")
  4668.             ElseIf PieceToBeMoved = "blpawn" Then
  4669.                 pbb6.Image = Image.FromFile("blackpawn.cur")
  4670.             ElseIf PieceToBeMoved = "whrook" Then
  4671.                 pbb6.Image = Image.FromFile("whiterook.cur")
  4672.             ElseIf PieceToBeMoved = "blrook" Then
  4673.                 pbb6.Image = Image.FromFile("blackrook.cur")
  4674.             ElseIf PieceToBeMoved = "whknight" Then
  4675.                 pbb6.Image = Image.FromFile("whiteknight.cur")
  4676.             ElseIf PieceToBeMoved = "blknight" Then
  4677.                 pbb6.Image = Image.FromFile("blackknight.cur")
  4678.             ElseIf PieceToBeMoved = "whbishop" Then
  4679.                 pbb6.Image = Image.FromFile("whitebishop.cur")
  4680.             ElseIf PieceToBeMoved = "blbishop" Then
  4681.                 pbb6.Image = Image.FromFile("blackbishop.cur")
  4682.             ElseIf PieceToBeMoved = "whqueen" Then
  4683.                 pbb6.Image = Image.FromFile("whitequeen.cur")
  4684.             ElseIf PieceToBeMoved = "blqueen" Then
  4685.                 pbb6.Image = Image.FromFile("blackqueen.cur")
  4686.             ElseIf PieceToBeMoved = "whking" Then
  4687.                 pbb6.Image = Image.FromFile("whiteking.cur")
  4688.             ElseIf PieceToBeMoved = "blking" Then
  4689.                 pbb6.Image = Image.FromFile("blackking.cur")
  4690.             End If
  4691.         End If
  4692.     End Sub
  4693.  
  4694.     Private Sub pbc6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc6.Click
  4695.         piece = CheckPiece(5, 2)
  4696.         If pbc6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4697.             If PieceToBeMoved = "whpawn" Then
  4698.                 pbc6.Image = Image.FromFile("whitepawn.cur")
  4699.             ElseIf PieceToBeMoved = "blpawn" Then
  4700.                 pbc6.Image = Image.FromFile("blackpawn.cur")
  4701.             ElseIf PieceToBeMoved = "whrook" Then
  4702.                 pbc6.Image = Image.FromFile("whiterook.cur")
  4703.             ElseIf PieceToBeMoved = "blrook" Then
  4704.                 pbc6.Image = Image.FromFile("blackrook.cur")
  4705.             ElseIf PieceToBeMoved = "whknight" Then
  4706.                 pbc6.Image = Image.FromFile("whiteknight.cur")
  4707.             ElseIf PieceToBeMoved = "blknight" Then
  4708.                 pbc6.Image = Image.FromFile("blackknight.cur")
  4709.             ElseIf PieceToBeMoved = "whbishop" Then
  4710.                 pbc6.Image = Image.FromFile("whitebishop.cur")
  4711.             ElseIf PieceToBeMoved = "blbishop" Then
  4712.                 pbc6.Image = Image.FromFile("blackbishop.cur")
  4713.             ElseIf PieceToBeMoved = "whqueen" Then
  4714.                 pbc6.Image = Image.FromFile("whitequeen.cur")
  4715.             ElseIf PieceToBeMoved = "blqueen" Then
  4716.                 pbc6.Image = Image.FromFile("blackqueen.cur")
  4717.             ElseIf PieceToBeMoved = "whking" Then
  4718.                 pbc6.Image = Image.FromFile("whiteking.cur")
  4719.             ElseIf PieceToBeMoved = "blking" Then
  4720.                 pbc6.Image = Image.FromFile("blackking.cur")
  4721.             End If
  4722.         End If
  4723.     End Sub
  4724.  
  4725.     Private Sub pbd6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd6.Click
  4726.         piece = CheckPiece(5, 3)
  4727.         If pbd6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4728.             If PieceToBeMoved = "whpawn" Then
  4729.                 pbd6.Image = Image.FromFile("whitepawn.cur")
  4730.             ElseIf PieceToBeMoved = "blpawn" Then
  4731.                 pbd6.Image = Image.FromFile("blackpawn.cur")
  4732.             ElseIf PieceToBeMoved = "whrook" Then
  4733.                 pbd6.Image = Image.FromFile("whiterook.cur")
  4734.             ElseIf PieceToBeMoved = "blrook" Then
  4735.                 pbd6.Image = Image.FromFile("blackrook.cur")
  4736.             ElseIf PieceToBeMoved = "whknight" Then
  4737.                 pbd6.Image = Image.FromFile("whiteknight.cur")
  4738.             ElseIf PieceToBeMoved = "blknight" Then
  4739.                 pbd6.Image = Image.FromFile("blackknight.cur")
  4740.             ElseIf PieceToBeMoved = "whbishop" Then
  4741.                 pbd6.Image = Image.FromFile("whitebishop.cur")
  4742.             ElseIf PieceToBeMoved = "blbishop" Then
  4743.                 pbd6.Image = Image.FromFile("blackbishop.cur")
  4744.             ElseIf PieceToBeMoved = "whqueen" Then
  4745.                 pbd6.Image = Image.FromFile("whitequeen.cur")
  4746.             ElseIf PieceToBeMoved = "blqueen" Then
  4747.                 pbd6.Image = Image.FromFile("blackqueen.cur")
  4748.             ElseIf PieceToBeMoved = "whking" Then
  4749.                 pbd6.Image = Image.FromFile("whiteking.cur")
  4750.             ElseIf PieceToBeMoved = "blking" Then
  4751.                 pbd6.Image = Image.FromFile("blackking.cur")
  4752.             End If
  4753.         End If
  4754.     End Sub
  4755.  
  4756.     Private Sub pbe6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe6.Click
  4757.         piece = CheckPiece(5, 4)
  4758.         If pbe6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4759.             If PieceToBeMoved = "whpawn" Then
  4760.                 pbe6.Image = Image.FromFile("whitepawn.cur")
  4761.             ElseIf PieceToBeMoved = "blpawn" Then
  4762.                 pbe6.Image = Image.FromFile("blackpawn.cur")
  4763.             ElseIf PieceToBeMoved = "whrook" Then
  4764.                 pbe6.Image = Image.FromFile("whiterook.cur")
  4765.             ElseIf PieceToBeMoved = "blrook" Then
  4766.                 pbe6.Image = Image.FromFile("blackrook.cur")
  4767.             ElseIf PieceToBeMoved = "whknight" Then
  4768.                 pbe6.Image = Image.FromFile("whiteknight.cur")
  4769.             ElseIf PieceToBeMoved = "blknight" Then
  4770.                 pbe6.Image = Image.FromFile("blackknight.cur")
  4771.             ElseIf PieceToBeMoved = "whbishop" Then
  4772.                 pbe6.Image = Image.FromFile("whitebishop.cur")
  4773.             ElseIf PieceToBeMoved = "blbishop" Then
  4774.                 pbe6.Image = Image.FromFile("blackbishop.cur")
  4775.             ElseIf PieceToBeMoved = "whqueen" Then
  4776.                 pbe6.Image = Image.FromFile("whitequeen.cur")
  4777.             ElseIf PieceToBeMoved = "blqueen" Then
  4778.                 pbe6.Image = Image.FromFile("blackqueen.cur")
  4779.             ElseIf PieceToBeMoved = "whking" Then
  4780.                 pbe6.Image = Image.FromFile("whiteking.cur")
  4781.             ElseIf PieceToBeMoved = "blking" Then
  4782.                 pbe6.Image = Image.FromFile("blackking.cur")
  4783.             End If
  4784.         End If
  4785.     End Sub
  4786.  
  4787.     Private Sub pbf6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf6.Click
  4788.         piece = CheckPiece(5, 5)
  4789.         If pbf6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4790.             If PieceToBeMoved = "whpawn" Then
  4791.                 pbf6.Image = Image.FromFile("whitepawn.cur")
  4792.             ElseIf PieceToBeMoved = "blpawn" Then
  4793.                 pbf6.Image = Image.FromFile("blackpawn.cur")
  4794.             ElseIf PieceToBeMoved = "whrook" Then
  4795.                 pbf6.Image = Image.FromFile("whiterook.cur")
  4796.             ElseIf PieceToBeMoved = "blrook" Then
  4797.                 pbf6.Image = Image.FromFile("blackrook.cur")
  4798.             ElseIf PieceToBeMoved = "whknight" Then
  4799.                 pbf6.Image = Image.FromFile("whiteknight.cur")
  4800.             ElseIf PieceToBeMoved = "blknight" Then
  4801.                 pbf6.Image = Image.FromFile("blackknight.cur")
  4802.             ElseIf PieceToBeMoved = "whbishop" Then
  4803.                 pbf6.Image = Image.FromFile("whitebishop.cur")
  4804.             ElseIf PieceToBeMoved = "blbishop" Then
  4805.                 pbf6.Image = Image.FromFile("blackbishop.cur")
  4806.             ElseIf PieceToBeMoved = "whqueen" Then
  4807.                 pbf6.Image = Image.FromFile("whitequeen.cur")
  4808.             ElseIf PieceToBeMoved = "blqueen" Then
  4809.                 pbf6.Image = Image.FromFile("blackqueen.cur")
  4810.             ElseIf PieceToBeMoved = "whking" Then
  4811.                 pbf6.Image = Image.FromFile("whiteking.cur")
  4812.             ElseIf PieceToBeMoved = "blking" Then
  4813.                 pbf6.Image = Image.FromFile("blackking.cur")
  4814.             End If
  4815.         End If
  4816.     End Sub
  4817.  
  4818.     Private Sub pbg6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg6.Click
  4819.         piece = CheckPiece(5, 6)
  4820.         If pbg6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4821.             If PieceToBeMoved = "whpawn" Then
  4822.                 pbg6.Image = Image.FromFile("whitepawn.cur")
  4823.             ElseIf PieceToBeMoved = "blpawn" Then
  4824.                 pbg6.Image = Image.FromFile("blackpawn.cur")
  4825.             ElseIf PieceToBeMoved = "whrook" Then
  4826.                 pbg6.Image = Image.FromFile("whiterook.cur")
  4827.             ElseIf PieceToBeMoved = "blrook" Then
  4828.                 pbg6.Image = Image.FromFile("blackrook.cur")
  4829.             ElseIf PieceToBeMoved = "whknight" Then
  4830.                 pbg6.Image = Image.FromFile("whiteknight.cur")
  4831.             ElseIf PieceToBeMoved = "blknight" Then
  4832.                 pbg6.Image = Image.FromFile("blackknight.cur")
  4833.             ElseIf PieceToBeMoved = "whbishop" Then
  4834.                 pbg6.Image = Image.FromFile("whitebishop.cur")
  4835.             ElseIf PieceToBeMoved = "blbishop" Then
  4836.                 pbg6.Image = Image.FromFile("blackbishop.cur")
  4837.             ElseIf PieceToBeMoved = "whqueen" Then
  4838.                 pbg6.Image = Image.FromFile("whitequeen.cur")
  4839.             ElseIf PieceToBeMoved = "blqueen" Then
  4840.                 pbg6.Image = Image.FromFile("blackqueen.cur")
  4841.             ElseIf PieceToBeMoved = "whking" Then
  4842.                 pbg6.Image = Image.FromFile("whiteking.cur")
  4843.             ElseIf PieceToBeMoved = "blking" Then
  4844.                 pbg6.Image = Image.FromFile("blackking.cur")
  4845.             End If
  4846.         End If
  4847.     End Sub
  4848.  
  4849.     Private Sub pbh6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh6.Click
  4850.         piece = CheckPiece(5, 7)
  4851.         If pbh6.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4852.             If PieceToBeMoved = "whpawn" Then
  4853.                 pbh6.Image = Image.FromFile("whitepawn.cur")
  4854.             ElseIf PieceToBeMoved = "blpawn" Then
  4855.                 pbh6.Image = Image.FromFile("blackpawn.cur")
  4856.                 Call OriginalColour()
  4857.                 Position(5, 7) = "blpawn"
  4858.                 Select Case square
  4859.                     Case "h7"
  4860.                         pbh7.Image = Nothing
  4861.                         Position(6, 7) = "0"
  4862.                     Case "g7"
  4863.                         pbg7.Image = Nothing
  4864.                         Position(6, 6) = "0"
  4865.                 End Select
  4866.             ElseIf PieceToBeMoved = "whrook" Then
  4867.                 pbh6.Image = Image.FromFile("whiterook.cur")
  4868.             ElseIf PieceToBeMoved = "blrook" Then
  4869.                 pbh6.Image = Image.FromFile("blackrook.cur")
  4870.             ElseIf PieceToBeMoved = "whknight" Then
  4871.                 pbh6.Image = Image.FromFile("whiteknight.cur")
  4872.             ElseIf PieceToBeMoved = "blknight" Then
  4873.                 pbh6.Image = Image.FromFile("blackknight.cur")
  4874.             ElseIf PieceToBeMoved = "whbishop" Then
  4875.                 pbh6.Image = Image.FromFile("whitebishop.cur")
  4876.             ElseIf PieceToBeMoved = "blbishop" Then
  4877.                 pbh6.Image = Image.FromFile("blackbishop.cur")
  4878.             ElseIf PieceToBeMoved = "whqueen" Then
  4879.                 pbh6.Image = Image.FromFile("whitequeen.cur")
  4880.             ElseIf PieceToBeMoved = "blqueen" Then
  4881.                 pbh6.Image = Image.FromFile("blackqueen.cur")
  4882.             ElseIf PieceToBeMoved = "whking" Then
  4883.                 pbh6.Image = Image.FromFile("whiteking.cur")
  4884.             ElseIf PieceToBeMoved = "blking" Then
  4885.                 pbh6.Image = Image.FromFile("blackking.cur")
  4886.             End If
  4887.         End If
  4888.     End Sub
  4889.  
  4890.     Private Sub pba7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba7.Click
  4891.         piece = CheckPiece(6, 0)
  4892.         If pba7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4893.             If PieceToBeMoved = "whpawn" Then
  4894.                 pba7.Image = Image.FromFile("whitepawn.cur")
  4895.             ElseIf PieceToBeMoved = "blpawn" Then
  4896.                 pba7.Image = Image.FromFile("blackpawn.cur")
  4897.             ElseIf PieceToBeMoved = "whrook" Then
  4898.                 pba7.Image = Image.FromFile("whiterook.cur")
  4899.             ElseIf PieceToBeMoved = "blrook" Then
  4900.                 pba7.Image = Image.FromFile("blackrook.cur")
  4901.             ElseIf PieceToBeMoved = "whknight" Then
  4902.                 pba7.Image = Image.FromFile("whiteknight.cur")
  4903.             ElseIf PieceToBeMoved = "blknight" Then
  4904.                 pba7.Image = Image.FromFile("blackknight.cur")
  4905.             ElseIf PieceToBeMoved = "whbishop" Then
  4906.                 pba7.Image = Image.FromFile("whitebishop.cur")
  4907.             ElseIf PieceToBeMoved = "blbishop" Then
  4908.                 pba7.Image = Image.FromFile("blackbishop.cur")
  4909.             ElseIf PieceToBeMoved = "whqueen" Then
  4910.                 pba7.Image = Image.FromFile("whitequeen.cur")
  4911.             ElseIf PieceToBeMoved = "blqueen" Then
  4912.                 pba7.Image = Image.FromFile("blackqueen.cur")
  4913.             ElseIf PieceToBeMoved = "whking" Then
  4914.                 pba7.Image = Image.FromFile("whiteking.cur")
  4915.             ElseIf PieceToBeMoved = "blking" Then
  4916.                 pba7.Image = Image.FromFile("blackking.cur")
  4917.             End If
  4918.         End If
  4919.         If piece = "blpawn" Then
  4920.             PieceToBeMoved = "blpawn"
  4921.             If CheckPiece(5, 0) = "0" Then
  4922.                 pba6.BackColor = Color.BlanchedAlmond
  4923.                 If CheckPiece(4, 0) = "0" Then
  4924.                     pba5.BackColor = Color.BlanchedAlmond
  4925.                 End If
  4926.             End If
  4927.         End If
  4928.     End Sub
  4929.  
  4930.     Private Sub pbb7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb7.Click
  4931.         piece = CheckPiece(6, 1)
  4932.         If pbb7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4933.             If PieceToBeMoved = "whpawn" Then
  4934.                 pbb7.Image = Image.FromFile("whitepawn.cur")
  4935.             ElseIf PieceToBeMoved = "blpawn" Then
  4936.                 pbb7.Image = Image.FromFile("blackpawn.cur")
  4937.             ElseIf PieceToBeMoved = "whrook" Then
  4938.                 pbb7.Image = Image.FromFile("whiterook.cur")
  4939.             ElseIf PieceToBeMoved = "blrook" Then
  4940.                 pbb7.Image = Image.FromFile("blackrook.cur")
  4941.             ElseIf PieceToBeMoved = "whknight" Then
  4942.                 pbb7.Image = Image.FromFile("whiteknight.cur")
  4943.             ElseIf PieceToBeMoved = "blknight" Then
  4944.                 pbb7.Image = Image.FromFile("blackknight.cur")
  4945.             ElseIf PieceToBeMoved = "whbishop" Then
  4946.                 pbb7.Image = Image.FromFile("whitebishop.cur")
  4947.             ElseIf PieceToBeMoved = "blbishop" Then
  4948.                 pbb7.Image = Image.FromFile("blackbishop.cur")
  4949.             ElseIf PieceToBeMoved = "whqueen" Then
  4950.                 pbb7.Image = Image.FromFile("whitequeen.cur")
  4951.             ElseIf PieceToBeMoved = "blqueen" Then
  4952.                 pbb7.Image = Image.FromFile("blackqueen.cur")
  4953.             ElseIf PieceToBeMoved = "whking" Then
  4954.                 pbb7.Image = Image.FromFile("whiteking.cur")
  4955.             ElseIf PieceToBeMoved = "blking" Then
  4956.                 pbb7.Image = Image.FromFile("blackking.cur")
  4957.             End If
  4958.         End If
  4959.         If piece = "blpawn" Then
  4960.             PieceToBeMoved = "blpawn"
  4961.             If CheckPiece(5, 1) = "0" Then
  4962.                 pbb6.BackColor = Color.BlanchedAlmond
  4963.                 If CheckPiece(4, 1) = "0" Then
  4964.                     pbb5.BackColor = Color.BlanchedAlmond
  4965.                 End If
  4966.             End If
  4967.         End If
  4968.     End Sub
  4969.  
  4970.     Private Sub pbc7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc7.Click
  4971.         piece = CheckPiece(6, 2)
  4972.         If pbc7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  4973.             If PieceToBeMoved = "whpawn" Then
  4974.                 pbc7.Image = Image.FromFile("whitepawn.cur")
  4975.             ElseIf PieceToBeMoved = "blpawn" Then
  4976.                 pbc7.Image = Image.FromFile("blackpawn.cur")
  4977.             ElseIf PieceToBeMoved = "whrook" Then
  4978.                 pbc7.Image = Image.FromFile("whiterook.cur")
  4979.             ElseIf PieceToBeMoved = "blrook" Then
  4980.                 pbc7.Image = Image.FromFile("blackrook.cur")
  4981.             ElseIf PieceToBeMoved = "whknight" Then
  4982.                 pbc7.Image = Image.FromFile("whiteknight.cur")
  4983.             ElseIf PieceToBeMoved = "blknight" Then
  4984.                 pbc7.Image = Image.FromFile("blackknight.cur")
  4985.             ElseIf PieceToBeMoved = "whbishop" Then
  4986.                 pbc7.Image = Image.FromFile("whitebishop.cur")
  4987.             ElseIf PieceToBeMoved = "blbishop" Then
  4988.                 pbc7.Image = Image.FromFile("blackbishop.cur")
  4989.             ElseIf PieceToBeMoved = "whqueen" Then
  4990.                 pbc7.Image = Image.FromFile("whitequeen.cur")
  4991.             ElseIf PieceToBeMoved = "blqueen" Then
  4992.                 pbc7.Image = Image.FromFile("blackqueen.cur")
  4993.             ElseIf PieceToBeMoved = "whking" Then
  4994.                 pbc7.Image = Image.FromFile("whiteking.cur")
  4995.             ElseIf PieceToBeMoved = "blking" Then
  4996.                 pbc7.Image = Image.FromFile("blackking.cur")
  4997.             End If
  4998.         End If
  4999.         If piece = "blpawn" Then
  5000.             PieceToBeMoved = "blpawn"
  5001.             If CheckPiece(5, 2) = "0" Then
  5002.                 pbc6.BackColor = Color.BlanchedAlmond
  5003.                 If CheckPiece(4, 2) = "0" Then
  5004.                     pbc5.BackColor = Color.BlanchedAlmond
  5005.                 End If
  5006.             End If
  5007.         End If
  5008.     End Sub
  5009.  
  5010.     Private Sub pbd7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd7.Click
  5011.         piece = CheckPiece(6, 3)
  5012.         If pbd7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5013.             If PieceToBeMoved = "whpawn" Then
  5014.                 pbd7.Image = Image.FromFile("whitepawn.cur")
  5015.             ElseIf PieceToBeMoved = "blpawn" Then
  5016.                 pbd7.Image = Image.FromFile("blackpawn.cur")
  5017.             ElseIf PieceToBeMoved = "whrook" Then
  5018.                 pbd7.Image = Image.FromFile("whiterook.cur")
  5019.             ElseIf PieceToBeMoved = "blrook" Then
  5020.                 pbd7.Image = Image.FromFile("blackrook.cur")
  5021.             ElseIf PieceToBeMoved = "whknight" Then
  5022.                 pbd7.Image = Image.FromFile("whiteknight.cur")
  5023.             ElseIf PieceToBeMoved = "blknight" Then
  5024.                 pbd7.Image = Image.FromFile("blackknight.cur")
  5025.             ElseIf PieceToBeMoved = "whbishop" Then
  5026.                 pbd7.Image = Image.FromFile("whitebishop.cur")
  5027.             ElseIf PieceToBeMoved = "blbishop" Then
  5028.                 pbd7.Image = Image.FromFile("blackbishop.cur")
  5029.             ElseIf PieceToBeMoved = "whqueen" Then
  5030.                 pbd7.Image = Image.FromFile("whitequeen.cur")
  5031.             ElseIf PieceToBeMoved = "blqueen" Then
  5032.                 pbd7.Image = Image.FromFile("blackqueen.cur")
  5033.             ElseIf PieceToBeMoved = "whking" Then
  5034.                 pbd7.Image = Image.FromFile("whiteking.cur")
  5035.             ElseIf PieceToBeMoved = "blking" Then
  5036.                 pbd7.Image = Image.FromFile("blackking.cur")
  5037.             End If
  5038.         End If
  5039.         If piece = "blpawn" Then
  5040.             PieceToBeMoved = "blpawn"
  5041.             If CheckPiece(5, 3) = "0" Then
  5042.                 pbd6.BackColor = Color.BlanchedAlmond
  5043.                 If CheckPiece(4, 3) = "0" Then
  5044.                     pbd5.BackColor = Color.BlanchedAlmond
  5045.                 End If
  5046.             End If
  5047.         End If
  5048.     End Sub
  5049.  
  5050.     Private Sub pbe7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe7.Click
  5051.         piece = CheckPiece(6, 4)
  5052.         If pbe7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5053.             If PieceToBeMoved = "whpawn" Then
  5054.                 pbe7.Image = Image.FromFile("whitepawn.cur")
  5055.             ElseIf PieceToBeMoved = "blpawn" Then
  5056.                 pbe7.Image = Image.FromFile("blackpawn.cur")
  5057.             ElseIf PieceToBeMoved = "whrook" Then
  5058.                 pbe7.Image = Image.FromFile("whiterook.cur")
  5059.             ElseIf PieceToBeMoved = "blrook" Then
  5060.                 pbe7.Image = Image.FromFile("blackrook.cur")
  5061.             ElseIf PieceToBeMoved = "whknight" Then
  5062.                 pbe7.Image = Image.FromFile("whiteknight.cur")
  5063.             ElseIf PieceToBeMoved = "blknight" Then
  5064.                 pbe7.Image = Image.FromFile("blackknight.cur")
  5065.             ElseIf PieceToBeMoved = "whbishop" Then
  5066.                 pbe7.Image = Image.FromFile("whitebishop.cur")
  5067.             ElseIf PieceToBeMoved = "blbishop" Then
  5068.                 pbe7.Image = Image.FromFile("blackbishop.cur")
  5069.             ElseIf PieceToBeMoved = "whqueen" Then
  5070.                 pbe7.Image = Image.FromFile("whitequeen.cur")
  5071.             ElseIf PieceToBeMoved = "blqueen" Then
  5072.                 pbe7.Image = Image.FromFile("blackqueen.cur")
  5073.             ElseIf PieceToBeMoved = "whking" Then
  5074.                 pbe7.Image = Image.FromFile("whiteking.cur")
  5075.             ElseIf PieceToBeMoved = "blking" Then
  5076.                 pbe7.Image = Image.FromFile("blackking.cur")
  5077.             End If
  5078.         End If
  5079.         If piece = "blpawn" Then
  5080.             PieceToBeMoved = "blpawn"
  5081.             If CheckPiece(5, 4) = "0" Then
  5082.                 pbe6.BackColor = Color.BlanchedAlmond
  5083.                 If CheckPiece(4, 4) = "0" Then
  5084.                     pbe5.BackColor = Color.BlanchedAlmond
  5085.                 End If
  5086.             End If
  5087.         End If
  5088.     End Sub
  5089.  
  5090.     Private Sub pbf7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf7.Click
  5091.         piece = CheckPiece(6, 5)
  5092.         If pbf7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5093.             If PieceToBeMoved = "whpawn" Then
  5094.                 pbf7.Image = Image.FromFile("whitepawn.cur")
  5095.             ElseIf PieceToBeMoved = "blpawn" Then
  5096.                 pbf7.Image = Image.FromFile("blackpawn.cur")
  5097.             ElseIf PieceToBeMoved = "whrook" Then
  5098.                 pbf7.Image = Image.FromFile("whiterook.cur")
  5099.             ElseIf PieceToBeMoved = "blrook" Then
  5100.                 pbf7.Image = Image.FromFile("blackrook.cur")
  5101.             ElseIf PieceToBeMoved = "whknight" Then
  5102.                 pbf7.Image = Image.FromFile("whiteknight.cur")
  5103.             ElseIf PieceToBeMoved = "blknight" Then
  5104.                 pbf7.Image = Image.FromFile("blackknight.cur")
  5105.             ElseIf PieceToBeMoved = "whbishop" Then
  5106.                 pbf7.Image = Image.FromFile("whitebishop.cur")
  5107.             ElseIf PieceToBeMoved = "blbishop" Then
  5108.                 pbf7.Image = Image.FromFile("blackbishop.cur")
  5109.             ElseIf PieceToBeMoved = "whqueen" Then
  5110.                 pbf7.Image = Image.FromFile("whitequeen.cur")
  5111.             ElseIf PieceToBeMoved = "blqueen" Then
  5112.                 pbf7.Image = Image.FromFile("blackqueen.cur")
  5113.             ElseIf PieceToBeMoved = "whking" Then
  5114.                 pbf7.Image = Image.FromFile("whiteking.cur")
  5115.             ElseIf PieceToBeMoved = "blking" Then
  5116.                 pbf7.Image = Image.FromFile("blackking.cur")
  5117.             End If
  5118.         End If
  5119.         If piece = "blpawn" Then
  5120.             PieceToBeMoved = "blpawn"
  5121.             If CheckPiece(5, 5) = "0" Then
  5122.                 pbf6.BackColor = Color.BlanchedAlmond
  5123.                 If CheckPiece(4, 5) = "0" Then
  5124.                     pbf5.BackColor = Color.BlanchedAlmond
  5125.                 End If
  5126.             End If
  5127.         End If
  5128.     End Sub
  5129.  
  5130.     Private Sub pbg7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg7.Click
  5131.         piece = CheckPiece(6, 6)
  5132.         If pbg7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5133.             If PieceToBeMoved = "whpawn" Then
  5134.                 pbg7.Image = Image.FromFile("whitepawn.cur")
  5135.             ElseIf PieceToBeMoved = "blpawn" Then
  5136.                 pbg7.Image = Image.FromFile("blackpawn.cur")
  5137.             ElseIf PieceToBeMoved = "whrook" Then
  5138.                 pbg7.Image = Image.FromFile("whiterook.cur")
  5139.             ElseIf PieceToBeMoved = "blrook" Then
  5140.                 pbg7.Image = Image.FromFile("blackrook.cur")
  5141.             ElseIf PieceToBeMoved = "whknight" Then
  5142.                 pbg7.Image = Image.FromFile("whiteknight.cur")
  5143.             ElseIf PieceToBeMoved = "blknight" Then
  5144.                 pbg7.Image = Image.FromFile("blackknight.cur")
  5145.             ElseIf PieceToBeMoved = "whbishop" Then
  5146.                 pbg7.Image = Image.FromFile("whitebishop.cur")
  5147.             ElseIf PieceToBeMoved = "blbishop" Then
  5148.                 pbg7.Image = Image.FromFile("blackbishop.cur")
  5149.             ElseIf PieceToBeMoved = "whqueen" Then
  5150.                 pbg7.Image = Image.FromFile("whitequeen.cur")
  5151.             ElseIf PieceToBeMoved = "blqueen" Then
  5152.                 pbg7.Image = Image.FromFile("blackqueen.cur")
  5153.             ElseIf PieceToBeMoved = "whking" Then
  5154.                 pbg7.Image = Image.FromFile("whiteking.cur")
  5155.             ElseIf PieceToBeMoved = "blking" Then
  5156.                 pbg7.Image = Image.FromFile("blackking.cur")
  5157.             End If
  5158.         End If
  5159.         If piece = "blpawn" Then
  5160.             square = "g7"
  5161.             PieceToBeMoved = "blpawn"
  5162.             If CheckPiece(5, 6) = "0" Then
  5163.                 pbg6.BackColor = Color.BlanchedAlmond
  5164.                 If CheckPiece(4, 6) = "0" Then
  5165.                     pbg5.BackColor = Color.BlanchedAlmond
  5166.                 End If
  5167.             End If
  5168.         End If
  5169.     End Sub
  5170.  
  5171.     Private Sub pbh7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh7.Click
  5172.         piece = CheckPiece(6, 7)
  5173.         If pbh7.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5174.             If PieceToBeMoved = "whpawn" Then
  5175.                 pbh7.Image = Image.FromFile("whitepawn.cur")
  5176.             ElseIf PieceToBeMoved = "blpawn" Then
  5177.                 pbh7.Image = Image.FromFile("blackpawn.cur")
  5178.             ElseIf PieceToBeMoved = "whrook" Then
  5179.                 pbh7.Image = Image.FromFile("whiterook.cur")
  5180.             ElseIf PieceToBeMoved = "blrook" Then
  5181.                 pbh7.Image = Image.FromFile("blackrook.cur")
  5182.             ElseIf PieceToBeMoved = "whknight" Then
  5183.                 pbh7.Image = Image.FromFile("whiteknight.cur")
  5184.             ElseIf PieceToBeMoved = "blknight" Then
  5185.                 pbh7.Image = Image.FromFile("blackknight.cur")
  5186.             ElseIf PieceToBeMoved = "whbishop" Then
  5187.                 pbh7.Image = Image.FromFile("whitebishop.cur")
  5188.             ElseIf PieceToBeMoved = "blbishop" Then
  5189.                 pbh7.Image = Image.FromFile("blackbishop.cur")
  5190.             ElseIf PieceToBeMoved = "whqueen" Then
  5191.                 pbh7.Image = Image.FromFile("whitequeen.cur")
  5192.             ElseIf PieceToBeMoved = "blqueen" Then
  5193.                 pbh7.Image = Image.FromFile("blackqueen.cur")
  5194.             ElseIf PieceToBeMoved = "whking" Then
  5195.                 pbh7.Image = Image.FromFile("whiteking.cur")
  5196.             ElseIf PieceToBeMoved = "blking" Then
  5197.                 pbh7.Image = Image.FromFile("blackking.cur")
  5198.             End If
  5199.         End If
  5200.         If piece = "blpawn" Then
  5201.             square=
  5202.             PieceToBeMoved = "blpawn"
  5203.             If CheckPiece(5, 7) = "0" Then
  5204.                 pbh6.BackColor = Color.BlanchedAlmond
  5205.                 If CheckPiece(4, 7) = "0" Then
  5206.                     pbh5.BackColor = Color.BlanchedAlmond
  5207.                 End If
  5208.             End If
  5209.             If CheckEnemy("black", 5, 6) = True Then
  5210.                 pbg6.BackColor = Color.BlanchedAlmond
  5211.             End If
  5212.         End If
  5213.     End Sub
  5214.  
  5215.     Private Sub pba8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pba8.Click
  5216.         piece = CheckPiece(7, 0)
  5217.         If pba8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5218.             If PieceToBeMoved = "whpawn" Then
  5219.                 pba8.Image = Image.FromFile("whitepawn.cur")
  5220.             ElseIf PieceToBeMoved = "blpawn" Then
  5221.                 pba8.Image = Image.FromFile("blackpawn.cur")
  5222.             ElseIf PieceToBeMoved = "whrook" Then
  5223.                 pba8.Image = Image.FromFile("whiterook.cur")
  5224.             ElseIf PieceToBeMoved = "blrook" Then
  5225.                 pba8.Image = Image.FromFile("blackrook.cur")
  5226.             ElseIf PieceToBeMoved = "whknight" Then
  5227.                 pba8.Image = Image.FromFile("whiteknight.cur")
  5228.             ElseIf PieceToBeMoved = "blknight" Then
  5229.                 pba8.Image = Image.FromFile("blackknight.cur")
  5230.             ElseIf PieceToBeMoved = "whbishop" Then
  5231.                 pba8.Image = Image.FromFile("whitebishop.cur")
  5232.             ElseIf PieceToBeMoved = "blbishop" Then
  5233.                 pba8.Image = Image.FromFile("blackbishop.cur")
  5234.             ElseIf PieceToBeMoved = "whqueen" Then
  5235.                 pba8.Image = Image.FromFile("whitequeen.cur")
  5236.             ElseIf PieceToBeMoved = "blqueen" Then
  5237.                 pba8.Image = Image.FromFile("blackqueen.cur")
  5238.             ElseIf PieceToBeMoved = "whking" Then
  5239.                 pba8.Image = Image.FromFile("whiteking.cur")
  5240.             ElseIf PieceToBeMoved = "blking" Then
  5241.                 pba8.Image = Image.FromFile("blackking.cur")
  5242.             End If
  5243.         End If
  5244.     End Sub
  5245.  
  5246.     Private Sub pbb8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbb8.Click
  5247.         piece = CheckPiece(7, 1)
  5248.         If pbb8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5249.             If PieceToBeMoved = "whpawn" Then
  5250.                 pbb8.Image = Image.FromFile("whitepawn.cur")
  5251.             ElseIf PieceToBeMoved = "blpawn" Then
  5252.                 pbb8.Image = Image.FromFile("blackpawn.cur")
  5253.             ElseIf PieceToBeMoved = "whrook" Then
  5254.                 pbb8.Image = Image.FromFile("whiterook.cur")
  5255.             ElseIf PieceToBeMoved = "blrook" Then
  5256.                 pbb8.Image = Image.FromFile("blackrook.cur")
  5257.             ElseIf PieceToBeMoved = "whknight" Then
  5258.                 pbb8.Image = Image.FromFile("whiteknight.cur")
  5259.             ElseIf PieceToBeMoved = "blknight" Then
  5260.                 pbb8.Image = Image.FromFile("blackknight.cur")
  5261.             ElseIf PieceToBeMoved = "whbishop" Then
  5262.                 pbb8.Image = Image.FromFile("whitebishop.cur")
  5263.             ElseIf PieceToBeMoved = "blbishop" Then
  5264.                 pbb8.Image = Image.FromFile("blackbishop.cur")
  5265.             ElseIf PieceToBeMoved = "whqueen" Then
  5266.                 pbb8.Image = Image.FromFile("whitequeen.cur")
  5267.             ElseIf PieceToBeMoved = "blqueen" Then
  5268.                 pbb8.Image = Image.FromFile("blackqueen.cur")
  5269.             ElseIf PieceToBeMoved = "whking" Then
  5270.                 pbb8.Image = Image.FromFile("whiteking.cur")
  5271.             ElseIf PieceToBeMoved = "blking" Then
  5272.                 pbb8.Image = Image.FromFile("blackking.cur")
  5273.             End If
  5274.         End If
  5275.     End Sub
  5276.  
  5277.     Private Sub pbc8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbc8.Click
  5278.         piece = CheckPiece(7, 2)
  5279.         If pbc8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5280.             If PieceToBeMoved = "whpawn" Then
  5281.                 pbc8.Image = Image.FromFile("whitepawn.cur")
  5282.             ElseIf PieceToBeMoved = "blpawn" Then
  5283.                 pbc8.Image = Image.FromFile("blackpawn.cur")
  5284.             ElseIf PieceToBeMoved = "whrook" Then
  5285.                 pbc8.Image = Image.FromFile("whiterook.cur")
  5286.             ElseIf PieceToBeMoved = "blrook" Then
  5287.                 pbc8.Image = Image.FromFile("blackrook.cur")
  5288.             ElseIf PieceToBeMoved = "whknight" Then
  5289.                 pbc8.Image = Image.FromFile("whiteknight.cur")
  5290.             ElseIf PieceToBeMoved = "blknight" Then
  5291.                 pbc8.Image = Image.FromFile("blackknight.cur")
  5292.             ElseIf PieceToBeMoved = "whbishop" Then
  5293.                 pbc8.Image = Image.FromFile("whitebishop.cur")
  5294.             ElseIf PieceToBeMoved = "blbishop" Then
  5295.                 pbc8.Image = Image.FromFile("blackbishop.cur")
  5296.             ElseIf PieceToBeMoved = "whqueen" Then
  5297.                 pbc8.Image = Image.FromFile("whitequeen.cur")
  5298.             ElseIf PieceToBeMoved = "blqueen" Then
  5299.                 pbc8.Image = Image.FromFile("blackqueen.cur")
  5300.             ElseIf PieceToBeMoved = "whking" Then
  5301.                 pbc8.Image = Image.FromFile("whiteking.cur")
  5302.             ElseIf PieceToBeMoved = "blking" Then
  5303.                 pbc8.Image = Image.FromFile("blackking.cur")
  5304.             End If
  5305.         End If
  5306.     End Sub
  5307.  
  5308.     Private Sub pbd8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbd8.Click
  5309.         piece = CheckPiece(7, 3)
  5310.         If pbd8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5311.             If PieceToBeMoved = "whpawn" Then
  5312.                 pbd8.Image = Image.FromFile("whitepawn.cur")
  5313.             ElseIf PieceToBeMoved = "blpawn" Then
  5314.                 pbd8.Image = Image.FromFile("blackpawn.cur")
  5315.             ElseIf PieceToBeMoved = "whrook" Then
  5316.                 pbd8.Image = Image.FromFile("whiterook.cur")
  5317.             ElseIf PieceToBeMoved = "blrook" Then
  5318.                 pbd8.Image = Image.FromFile("blackrook.cur")
  5319.             ElseIf PieceToBeMoved = "whknight" Then
  5320.                 pbd8.Image = Image.FromFile("whiteknight.cur")
  5321.             ElseIf PieceToBeMoved = "blknight" Then
  5322.                 pbd8.Image = Image.FromFile("blackknight.cur")
  5323.             ElseIf PieceToBeMoved = "whbishop" Then
  5324.                 pbd8.Image = Image.FromFile("whitebishop.cur")
  5325.             ElseIf PieceToBeMoved = "blbishop" Then
  5326.                 pbd8.Image = Image.FromFile("blackbishop.cur")
  5327.             ElseIf PieceToBeMoved = "whqueen" Then
  5328.                 pbd8.Image = Image.FromFile("whitequeen.cur")
  5329.             ElseIf PieceToBeMoved = "blqueen" Then
  5330.                 pbd8.Image = Image.FromFile("blackqueen.cur")
  5331.             ElseIf PieceToBeMoved = "whking" Then
  5332.                 pbd8.Image = Image.FromFile("whiteking.cur")
  5333.             ElseIf PieceToBeMoved = "blking" Then
  5334.                 pbd8.Image = Image.FromFile("blackking.cur")
  5335.             End If
  5336.         End If
  5337.     End Sub
  5338.  
  5339.     Private Sub pbe8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbe8.Click
  5340.         piece = CheckPiece(7, 4)
  5341.         If pbe8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5342.             If PieceToBeMoved = "whpawn" Then
  5343.                 pbe8.Image = Image.FromFile("whitepawn.cur")
  5344.             ElseIf PieceToBeMoved = "blpawn" Then
  5345.                 pbe8.Image = Image.FromFile("blackpawn.cur")
  5346.             ElseIf PieceToBeMoved = "whrook" Then
  5347.                 pbe8.Image = Image.FromFile("whiterook.cur")
  5348.             ElseIf PieceToBeMoved = "blrook" Then
  5349.                 pbe8.Image = Image.FromFile("blackrook.cur")
  5350.             ElseIf PieceToBeMoved = "whknight" Then
  5351.                 pbe8.Image = Image.FromFile("whiteknight.cur")
  5352.             ElseIf PieceToBeMoved = "blknight" Then
  5353.                 pbe8.Image = Image.FromFile("blackknight.cur")
  5354.             ElseIf PieceToBeMoved = "whbishop" Then
  5355.                 pbe8.Image = Image.FromFile("whitebishop.cur")
  5356.             ElseIf PieceToBeMoved = "blbishop" Then
  5357.                 pbe8.Image = Image.FromFile("blackbishop.cur")
  5358.             ElseIf PieceToBeMoved = "whqueen" Then
  5359.                 pbe8.Image = Image.FromFile("whitequeen.cur")
  5360.             ElseIf PieceToBeMoved = "blqueen" Then
  5361.                 pbe8.Image = Image.FromFile("blackqueen.cur")
  5362.             ElseIf PieceToBeMoved = "whking" Then
  5363.                 pbe8.Image = Image.FromFile("whiteking.cur")
  5364.             ElseIf PieceToBeMoved = "blking" Then
  5365.                 pbe8.Image = Image.FromFile("blackking.cur")
  5366.             End If
  5367.         End If
  5368.     End Sub
  5369.  
  5370.     Private Sub pbf8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbf8.Click
  5371.         piece = CheckPiece(7, 5)
  5372.         If pbf8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5373.             If PieceToBeMoved = "whpawn" Then
  5374.                 pbf8.Image = Image.FromFile("whitepawn.cur")
  5375.             ElseIf PieceToBeMoved = "blpawn" Then
  5376.                 pbf8.Image = Image.FromFile("blackpawn.cur")
  5377.             ElseIf PieceToBeMoved = "whrook" Then
  5378.                 pbf8.Image = Image.FromFile("whiterook.cur")
  5379.             ElseIf PieceToBeMoved = "blrook" Then
  5380.                 pbf8.Image = Image.FromFile("blackrook.cur")
  5381.             ElseIf PieceToBeMoved = "whknight" Then
  5382.                 pbf8.Image = Image.FromFile("whiteknight.cur")
  5383.             ElseIf PieceToBeMoved = "blknight" Then
  5384.                 pbf8.Image = Image.FromFile("blackknight.cur")
  5385.             ElseIf PieceToBeMoved = "whbishop" Then
  5386.                 pbf8.Image = Image.FromFile("whitebishop.cur")
  5387.             ElseIf PieceToBeMoved = "blbishop" Then
  5388.                 pbf8.Image = Image.FromFile("blackbishop.cur")
  5389.             ElseIf PieceToBeMoved = "whqueen" Then
  5390.                 pbf8.Image = Image.FromFile("whitequeen.cur")
  5391.             ElseIf PieceToBeMoved = "blqueen" Then
  5392.                 pbf8.Image = Image.FromFile("blackqueen.cur")
  5393.             ElseIf PieceToBeMoved = "whking" Then
  5394.                 pbf8.Image = Image.FromFile("whiteking.cur")
  5395.             ElseIf PieceToBeMoved = "blking" Then
  5396.                 pbf8.Image = Image.FromFile("blackking.cur")
  5397.             End If
  5398.         End If
  5399.     End Sub
  5400.  
  5401.     Private Sub pbg8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbg8.Click
  5402.         piece = CheckPiece(7, 6)
  5403.         If pbg8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  5404.             If PieceToBeMoved = "whpawn" Then
  5405.                 pbg8.Image = Image.FromFile("whitequeen.cur")
  5406.                 Position(7, 6) = "whqueen"
  5407.                 Call OriginalColour()
  5408.                 Select Case square
  5409.                     Case "g7"
  5410.                         pbg7.Image = Nothing
  5411.                         Position(6, 6) = "0"
  5412.                     Case "h7"
  5413.                         pbh7.Image = Nothing
  5414.                         Position(6, 7) = "0"
  5415.                     Case "f7"
  5416.                         pbf7.Image = Nothing
  5417.                         Position(6, 5) = "0"
  5418.                 End Select
  5419.             ElseIf PieceToBeMoved = "blpawn" Then
  5420.                 pbg8.Image = Image.FromFile("blackpawn.cur")
  5421.             ElseIf PieceToBeMoved = "whrook" Then
  5422.                 pbg8.Image = Image.FromFile("whiterook.cur")
  5423.                 Call OriginalColour()
  5424.                 Position(7, 6) = "whrook"
  5425.                 Select Case square
  5426.                     Case "g7"
  5427.                         Position(6, 6) = "0"
  5428.                         pbg7.Image = Nothing
  5429.                     Case "g6"
  5430.                         Position(5, 6) = "0"
  5431.                         pbg6.Image = Nothing
  5432.                     Case "g5"
  5433.                         Position(4, 6) = "0"
  5434.                         pbg5.Image = Nothing
  5435.                     Case "g4"
  5436.                         Position(3, 6) = "0"
  5437.                         pbg4.Image = Nothing
  5438.                     Case "g3"
  5439.                         Position(2, 6) = "0"
  5440.                         pbg3.Image = Nothing
  5441.                     Case "g2"
  5442.                         Position(1, 6) = "0"
  5443.                         pbg2.Image = Nothing
  5444.                     Case "g1"
  5445.                         Position(0, 6) = "0"
  5446.                         pbg1.Image = Nothing
  5447.                     Case "h8"
  5448.                         Position(7, 7) = "0"
  5449.                         pbh8.Image = Nothing
  5450.                     Case "f8"
  5451.                         Position(7, 5) = "0"
  5452.                         pbf8.Image = Nothing
  5453.                     Case "e8"
  5454.                         Position(7, 4) = "0"
  5455.                         pbe8.Image = Nothing
  5456.                     Case "d8"
  5457.                         Position(7, 3) = "0"
  5458.                         pbd8.Image = Nothing
  5459.                     Case "c8"
  5460.                         Position(7, 2) = "0"
  5461.                         pbc8.Image = Nothing
  5462.                     Case "b8"
  5463.                         Position(7, 1) = "0"
  5464.                         pbb8.Image = Nothing
  5465.                     Case "a8"
  5466.                         Position(7, 0) = "0"
  5467.                         pba8.Image = Nothing
  5468.                 End Select
  5469.             ElseIf PieceToBeMoved = "blrook" Then
  5470.                 pbg8.Image = Image.FromFile("blackrook.cur")
  5471.                 Call OriginalColour()
  5472.                 Position(7, 6) = "blrook"
  5473.                 Select Case square
  5474.                     Case "g7"
  5475.                         Position(6, 6) = "0"
  5476.                         pbg7.Image = Nothing
  5477.                     Case "g6"
  5478.                         Position(5, 6) = "0"
  5479.                         pbg6.Image = Nothing
  5480.                     Case "g5"
  5481.                         Position(4, 6) = "0"
  5482.                         pbg5.Image = Nothing
  5483.                     Case "g4"
  5484.                         Position(3, 6) = "0"
  5485.                         pbg4.Image = Nothing
  5486.                     Case "g3"
  5487.                         Position(2, 6) = "0"
  5488.                         pbg3.Image = Nothing
  5489.                     Case "g2"
  5490.                         Position(1, 6) = "0"
  5491.                         pbg2.Image = Nothing
  5492.                     Case "g1"
  5493.                         Position(0, 6) = "0"
  5494.                         pbg1.Image = Nothing
  5495.                     Case "h8"
  5496.                         Position(7, 7) = "0"
  5497.                         pbh8.Image = Nothing
  5498.                     Case "f8"
  5499.                         Position(7, 5) = "0"
  5500.                         pbf8.Image = Nothing
  5501.                     Case "e8"
  5502.                         Position(7, 4) = "0"
  5503.                         pbe8.Image = Nothing
  5504.                     Case "d8"
  5505.                         Position(7, 3) = "0"
  5506.                         pbd8.Image = Nothing
  5507.                     Case "c8"
  5508.                         Position(7, 2) = "0"
  5509.                         pbc8.Image = Nothing
  5510.                     Case "b8"
  5511.                         Position(7, 1) = "0"
  5512.                         pbb8.Image = Nothing
  5513.                     Case "a8"
  5514.                         Position(7, 0) = "0"
  5515.                         pba8.Image = Nothing
  5516.                 End Select
  5517.             ElseIf PieceToBeMoved = "whknight" Then
  5518.                 pbg8.Image = Image.FromFile("whiteknight.cur")
  5519.                 Call OriginalColour()
  5520.                 Position(7, 6) = "whknight"
  5521.                 Select Case square
  5522.                     Case "h6"
  5523.                         pbh6.Image = Nothing
  5524.                         Position(5, 7) = "0"
  5525.                     Case "f6"
  5526.                         pbf6.Image = Nothing
  5527.                         Position(5, 5) = "0"
  5528.                     Case "e7"
  5529.                         pbe7.Image = Nothing
  5530.                         Position(6, 4) = "0"
  5531.                 End Select
  5532.             ElseIf PieceToBeMoved = "blknight" Then
  5533.                 pbg8.Image = Image.FromFile("blackknight.cur")
  5534.                 Call OriginalColour()
  5535.                 Position(7, 6) = "blknight"
  5536.                 Select Case square
  5537.                     Case "h6"
  5538.                         pbh6.Image = Nothing
  5539.                         Position(5, 7) = "0"
  5540.                     Case "f6"
  5541.                         pbf6.Image = Nothing
  5542.                         Position(5, 5) = "0"
  5543.                     Case "e7"
  5544.                         pbe7.Image = Nothing
  5545.                         Position(6, 4) = "0"
  5546.                 End Select
  5547.             ElseIf PieceToBeMoved = "whbishop" Then
  5548.                 pbg8.Image = Image.FromFile("whitebishop.cur")
  5549.                 Call OriginalColour()
  5550.                 Position(7, 6) = "whbishop"
  5551.                 Select Case square
  5552.                     Case "h7"
  5553.                         Position(6, 7) = "0"
  5554.                         pbh7.Image = Nothing
  5555.                     Case "f7"
  5556.                         Position(6, 5) = "0"
  5557.                         pbf7.Image = Nothing
  5558.                     Case "e6"
  5559.                         Position(5, 4) = "0"
  5560.                         pbe6.Image = Nothing
  5561.                     Case "d5"
  5562.                         Position(4, 3) = "0"
  5563.                         pbd5.Image = Nothing
  5564.                     Case "c4"
  5565.                         Position(3, 2) = "0"
  5566.                         pbc4.Image = Nothing
  5567.                     Case "b3"
  5568.                         Position(2, 1) = "0"
  5569.                         pbb3.Image = Nothing
  5570.                     Case "a2"
  5571.                         Position(1, 0) = "0"
  5572.                         pba2.Image = Nothing
  5573.                 End Select
  5574.             ElseIf PieceToBeMoved = "blbishop" Then
  5575.                 pbg8.Image = Image.FromFile("blackbishop.cur")
  5576.                 Call OriginalColour()
  5577.                 Position(7, 6) = "blbishop"
  5578.                 Select Case square
  5579.                     Case "h7"
  5580.                         Position(6, 7) = "0"
  5581.                         pbh7.Image = Nothing
  5582.                     Case "f7"
  5583.                         Position(6, 5) = "0"
  5584.                         pbf7.Image = Nothing
  5585.                     Case "e6"
  5586.                         Position(5, 4) = "0"
  5587.                         pbe6.Image = Nothing
  5588.                     Case "d5"
  5589.                         Position(4, 3) = "0"
  5590.                         pbd5.Image = Nothing
  5591.                     Case "c4"
  5592.                         Position(3, 2) = "0"
  5593.                         pbc4.Image = Nothing
  5594.                     Case "b3"
  5595.                         Position(2, 1) = "0"
  5596.                         pbb3.Image = Nothing
  5597.                     Case "a2"
  5598.                         Position(1, 0) = "0"
  5599.                         pba2.Image = Nothing
  5600.                 End Select
  5601.             ElseIf PieceToBeMoved = "whqueen" Then
  5602.                 pbg8.Image = Image.FromFile("whitequeen.cur")
  5603.                 Call OriginalColour()
  5604.                 Position(7, 6) = "whqueen"
  5605.                 Select Case square
  5606.                     Case "h7"
  5607.                         Position(6, 7) = "0"
  5608.                         pbh7.Image = Nothing
  5609.                     Case "f7"
  5610.                         Position(6, 5) = "0"
  5611.                         pbf7.Image = Nothing
  5612.                     Case "e6"
  5613.                         Position(5, 4) = "0"
  5614.                         pbe6.Image = Nothing
  5615.                     Case "d5"
  5616.                         Position(4, 3) = "0"
  5617.                         pbd5.Image = Nothing
  5618.                     Case "c4"
  5619.                         Position(3, 2) = "0"
  5620.                         pbc4.Image = Nothing
  5621.                     Case "b3"
  5622.                         Position(2, 1) = "0"
  5623.                         pbb3.Image = Nothing
  5624.                     Case "a2"
  5625.                         Position(1, 0) = "0"
  5626.                         pba2.Image = Nothing
  5627.                     Case "g7"
  5628.                         Position(6, 6) = "0"
  5629.                         pbg7.Image = Nothing
  5630.                     Case "g6"
  5631.                         Position(5, 6) = "0"
  5632.                         pbg6.Image = Nothing
  5633.                     Case "g5"
  5634.                         Position(4, 6) = "0"
  5635.                         pbg5.Image = Nothing
  5636.                     Case "g4"
  5637.                         Position(3, 6) = "0"
  5638.                         pbg4.Image = Nothing
  5639.                     Case "g3"
  5640.                         Position(2, 6) = "0"
  5641.                         pbg3.Image = Nothing
  5642.                     Case "g2"
  5643.                         Position(1, 6) = "0"
  5644.                         pbg2.Image = Nothing
  5645.                     Case "g1"
  5646.                         Position(0, 6) = "0"
  5647.                         pbg1.Image = Nothing
  5648.                     Case "h8"
  5649.                         Position(7, 7) = "0"
  5650.                         pbh8.Image = Nothing
  5651.                     Case "f8"
  5652.                         Position(7, 5) = "0"
  5653.                         pbf8.Image = Nothing
  5654.                     Case "e8"
  5655.                         Position(7, 4) = "0"
  5656.                         pbe8.Image = Nothing
  5657.                     Case "d8"
  5658.                         Position(7, 3) = "0"
  5659.                         pbd8.Image = Nothing
  5660.                     Case "c8"
  5661.                         Position(7, 2) = "0"
  5662.                         pbc8.Image = Nothing
  5663.                     Case "b8"
  5664.                         Position(7, 1) = "0"
  5665.                         pbb8.Image = Nothing
  5666.                     Case "a8"
  5667.                         Position(7, 0) = "0"
  5668.                         pba8.Image = Nothing
  5669.                 End Select
  5670.             ElseIf PieceToBeMoved = "blqueen" Then
  5671.                 pbg8.Image = Image.FromFile("blackqueen.cur")
  5672.                 Call OriginalColour()
  5673.                 Position(7, 6) = "blqueen"
  5674.                 Select Case square
  5675.                     Case "h7"
  5676.                         Position(6, 7) = "0"
  5677.                         pbh7.Image = Nothing
  5678.                     Case "f7"
  5679.                         Position(6, 5) = "0"
  5680.                         pbf7.Image = Nothing
  5681.                     Case "e6"
  5682.                         Position(5, 4) = "0"
  5683.                         pbe6.Image = Nothing
  5684.                     Case "d5"
  5685.                         Position(4, 3) = "0"
  5686.                         pbd5.Image = Nothing
  5687.                     Case "c4"
  5688.                         Position(3, 2) = "0"
  5689.                         pbc4.Image = Nothing
  5690.                     Case "b3"
  5691.                         Position(2, 1) = "0"
  5692.                         pbb3.Image = Nothing
  5693.                     Case "a2"
  5694.                         Position(1, 0) = "0"
  5695.                         pba2.Image = Nothing
  5696.                     Case "g7"
  5697.                         Position(6, 6) = "0"
  5698.                         pbg7.Image = Nothing
  5699.                     Case "g6"
  5700.                         Position(5, 6) = "0"
  5701.                         pbg6.Image = Nothing
  5702.                     Case "g5"
  5703.                         Position(4, 6) = "0"
  5704.                         pbg5.Image = Nothing
  5705.                     Case "g4"
  5706.                         Position(3, 6) = "0"
  5707.                         pbg4.Image = Nothing
  5708.                     Case "g3"
  5709.                         Position(2, 6) = "0"
  5710.                         pbg3.Image = Nothing
  5711.                     Case "g2"
  5712.                         Position(1, 6) = "0"
  5713.                         pbg2.Image = Nothing
  5714.                     Case "g1"
  5715.                         Position(0, 6) = "0"
  5716.                         pbg1.Image = Nothing
  5717.                     Case "h8"
  5718.                         Position(7, 7) = "0"
  5719.                         pbh8.Image = Nothing
  5720.                     Case "f8"
  5721.                         Position(7, 5) = "0"
  5722.                         pbf8.Image = Nothing
  5723.                     Case "e8"
  5724.                         Position(7, 4) = "0"
  5725.                         pbe8.Image = Nothing
  5726.                     Case "d8"
  5727.                         Position(7, 3) = "0"
  5728.                         pbd8.Image = Nothing
  5729.                     Case "c8"
  5730.                         Position(7, 2) = "0"
  5731.                         pbc8.Image = Nothing
  5732.                     Case "b8"
  5733.                         Position(7, 1) = "0"
  5734.                         pbb8.Image = Nothing
  5735.                     Case "a8"
  5736.                         Position(7, 0) = "0"
  5737.                         pba8.Image = Nothing
  5738.                 End Select
  5739.             ElseIf PieceToBeMoved = "whking" Then
  5740.                 pbg8.Image = Image.FromFile("whiteking.cur")
  5741.                 Call OriginalColour()
  5742.                 Position(7, 6) = "whking"
  5743.                 Select Case square
  5744.                     Case "h8"
  5745.                         Position(7, 7) = "0"
  5746.                         pbh8.Image = Nothing
  5747.                     Case "f8"
  5748.                         Position(7, 5) = "0"
  5749.                         pbf8.Image = Nothing
  5750.                     Case "g7"
  5751.                         Position(6, 6) = "0"
  5752.                         pbg7.Image = Nothing
  5753.                     Case "h7"
  5754.                         Position(6, 7) = "0"
  5755.                         pbh7.Image = Nothing
  5756.                     Case "f7"
  5757.                         Position(6, 5) = "0"
  5758.                         pbf7.Image = Nothing
  5759.                 End Select
  5760.             ElseIf PieceToBeMoved = "blking" Then
  5761.                 pbg8.Image = Image.FromFile("blackking.cur")
  5762.                 Call OriginalColour()
  5763.                 Position(7, 6) = "blking"
  5764.                 Select Case square
  5765.                     Case "h8"
  5766.                         Position(7, 7) = "0"
  5767.                         pbh8.Image = Nothing
  5768.                     Case "f8"
  5769.                         Position(7, 5) = "0"
  5770.                         pbf8.Image = Nothing
  5771.                     Case "g7"
  5772.                         Position(6, 6) = "0"
  5773.                         pbg7.Image = Nothing
  5774.                     Case "h7"
  5775.                         Position(6, 7) = "0"
  5776.                         pbh7.Image = Nothing
  5777.                     Case "f7"
  5778.                         Position(6, 5) = "0"
  5779.                         pbf7.Image = Nothing
  5780.                 End Select
  5781.             End If
  5782.         End If
  5783.         If piece = "whknight" Then
  5784.             square = "g8"
  5785.             PieceToBeMoved = "whknight"
  5786.             If Position(5, 5) = "0" Or CheckEnemy("white", 5, 5) = True Then
  5787.                 pbf6.BackColor = Color.BlanchedAlmond
  5788.             End If
  5789.             If Position(5, 7) = "0" Or CheckEnemy("white", 5, 7) = True Then
  5790.                 pbh6.BackColor = Color.BlanchedAlmond
  5791.             End If
  5792.             If Position(6, 4) = "0" Or CheckEnemy("white", 6, 4) = True Then
  5793.                 pbe2.BackColor = Color.BlanchedAlmond
  5794.             End If
  5795.         ElseIf piece = "blknight" Then
  5796.             square = "g8"
  5797.             PieceToBeMoved = "blknight"
  5798.             If Position(5, 5) = "0" Or CheckEnemy("black", 5, 5) = True Then
  5799.                 pbf6.BackColor = Color.BlanchedAlmond
  5800.             End If
  5801.             If Position(5, 7) = "0" Or CheckEnemy("black", 5, 7) = True Then
  5802.                 pbh6.BackColor = Color.BlanchedAlmond
  5803.             End If
  5804.             If Position(6, 4) = "0" Or CheckEnemy("black", 6, 4) = True Then
  5805.                 pbe2.BackColor = Color.BlanchedAlmond
  5806.             End If
  5807.         ElseIf piece = "whrook" Then
  5808.             square = "g8"
  5809.             PieceToBeMoved = "whrook"
  5810.             If Position(7, 7) = "0" Or CheckEnemy("white", 7, 7) = True Then
  5811.                 pbh8.BackColor = Color.BlanchedAlmond
  5812.             End If
  5813.             If Position(7, 5) = "0" Or CheckEnemy("white", 7, 5) = True Then
  5814.                 pbf8.BackColor = Color.BlanchedAlmond
  5815.             End If
  5816.             If (Position(7, 4) = "0" Or CheckEnemy("white", 7, 4) = True) And CheckPiece(7, 5) = "0" Then
  5817.                 pbe8.BackColor = Color.BlanchedAlmond
  5818.             End If
  5819.             If (Position(7, 3) = "0" Or CheckEnemy("white", 7, 3) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  5820.                 pbd8.BackColor = Color.BlanchedAlmond
  5821.             End If
  5822.             If (Position(7, 2) = "0" Or CheckEnemy("white", 7, 2) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  5823.                 pbc8.BackColor = Color.BlanchedAlmond
  5824.             End If
  5825.             If (Position(7, 1) = "0" Or CheckEnemy("white", 7, 1) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  5826.                 pbb8.BackColor = Color.BlanchedAlmond
  5827.             End If
  5828.             If (Position(7, 0) = "0" Or CheckEnemy("white", 7, 0) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  5829.                 pbb8.BackColor = Color.BlanchedAlmond
  5830.             End If
  5831.             If Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True Then
  5832.                 pbg7.BackColor = Color.BlanchedAlmond
  5833.             End If
  5834.             If (Position(5, 6) = "0" Or CheckEnemy("white", 5, 6) = True) And CheckPiece(6, 6) = "0" Then
  5835.                 pbg6.BackColor = Color.BlanchedAlmond
  5836.             End If
  5837.             If (Position(4, 6) = "0" Or CheckEnemy("white", 4, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" Then
  5838.                 pbg5.BackColor = Color.BlanchedAlmond
  5839.             End If
  5840.             If (Position(3, 6) = "0" Or CheckEnemy("white", 3, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" Then
  5841.                 pbg4.BackColor = Color.BlanchedAlmond
  5842.             End If
  5843.             If (Position(2, 6) = "0" Or CheckEnemy("white", 2, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" Then
  5844.                 pbg3.BackColor = Color.BlanchedAlmond
  5845.             End If
  5846.             If (Position(1, 6) = "0" Or CheckEnemy("white", 1, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" Then
  5847.                 pbg2.BackColor = Color.BlanchedAlmond
  5848.             End If
  5849.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" And CheckPiece(1, 6) = "0" Then
  5850.                 pbg1.BackColor = Color.BlanchedAlmond
  5851.             End If
  5852.         ElseIf piece = "blrook" Then
  5853.             square = "g8"
  5854.             PieceToBeMoved = "blrook"
  5855.             If Position(7, 7) = "0" Or CheckEnemy("black", 7, 7) = True Then
  5856.                 pbh8.BackColor = Color.BlanchedAlmond
  5857.             End If
  5858.             If Position(7, 5) = "0" Or CheckEnemy("black", 7, 5) = True Then
  5859.                 pbf8.BackColor = Color.BlanchedAlmond
  5860.             End If
  5861.             If (Position(7, 4) = "0" Or CheckEnemy("black", 7, 4) = True) And CheckPiece(7, 5) = "0" Then
  5862.                 pbe8.BackColor = Color.BlanchedAlmond
  5863.             End If
  5864.             If (Position(7, 3) = "0" Or CheckEnemy("black", 7, 3) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  5865.                 pbd8.BackColor = Color.BlanchedAlmond
  5866.             End If
  5867.             If (Position(7, 2) = "0" Or CheckEnemy("black", 7, 2) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  5868.                 pbc8.BackColor = Color.BlanchedAlmond
  5869.             End If
  5870.             If (Position(7, 1) = "0" Or CheckEnemy("black", 7, 1) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  5871.                 pbb8.BackColor = Color.BlanchedAlmond
  5872.             End If
  5873.             If (Position(7, 0) = "0" Or CheckEnemy("black", 7, 0) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  5874.                 pbb8.BackColor = Color.BlanchedAlmond
  5875.             End If
  5876.             If Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True Then
  5877.                 pbg7.BackColor = Color.BlanchedAlmond
  5878.             End If
  5879.             If (Position(5, 6) = "0" Or CheckEnemy("black", 5, 6) = True) And CheckPiece(6, 6) = "0" Then
  5880.                 pbg6.BackColor = Color.BlanchedAlmond
  5881.             End If
  5882.             If (Position(4, 6) = "0" Or CheckEnemy("black", 4, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" Then
  5883.                 pbg5.BackColor = Color.BlanchedAlmond
  5884.             End If
  5885.             If (Position(3, 6) = "0" Or CheckEnemy("black", 3, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" Then
  5886.                 pbg4.BackColor = Color.BlanchedAlmond
  5887.             End If
  5888.             If (Position(2, 6) = "0" Or CheckEnemy("black", 2, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" Then
  5889.                 pbg3.BackColor = Color.BlanchedAlmond
  5890.             End If
  5891.             If (Position(1, 6) = "0" Or CheckEnemy("black", 1, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" Then
  5892.                 pbg2.BackColor = Color.BlanchedAlmond
  5893.             End If
  5894.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" And CheckPiece(1, 6) = "0" Then
  5895.                 pbg1.BackColor = Color.BlanchedAlmond
  5896.             End If
  5897.         ElseIf piece = "whbishop" Then
  5898.             square = "g8"
  5899.             PieceToBeMoved = "whbishop"
  5900.             If Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True Then
  5901.                 pbh7.BackColor = Color.BlanchedAlmond
  5902.             End If
  5903.             If Position(6, 5) = "0" Or CheckEnemy("white", 6, 5) = True Then
  5904.                 pbf7.BackColor = Color.BlanchedAlmond
  5905.             End If
  5906.             If (Position(5, 4) = "0" Or CheckEnemy("white", 5, 4) = True) And CheckPiece(6, 5) = "0" Then
  5907.                 pbe6.BackColor = Color.BlanchedAlmond
  5908.             End If
  5909.             If (Position(4, 3) = "0" Or CheckEnemy("white", 4, 3) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" Then
  5910.                 pbd5.BackColor = Color.BlanchedAlmond
  5911.             End If
  5912.             If (Position(3, 2) = "0" Or CheckEnemy("white", 3, 2) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" Then
  5913.                 pbc4.BackColor = Color.BlanchedAlmond
  5914.             End If
  5915.             If (Position(2, 1) = "0" Or CheckEnemy("white", 2, 1) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" Then
  5916.                 pbb3.BackColor = Color.BlanchedAlmond
  5917.             End If
  5918.             If (Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(2, 1) = "0" Then
  5919.                 pbb3.BackColor = Color.BlanchedAlmond
  5920.             End If
  5921.         ElseIf piece = "blbishop" Then
  5922.             square = "g8"
  5923.             PieceToBeMoved = "blbishop"
  5924.             If Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True Then
  5925.                 pbh7.BackColor = Color.BlanchedAlmond
  5926.             End If
  5927.             If Position(6, 5) = "0" Or CheckEnemy("black", 6, 5) = True Then
  5928.                 pbf7.BackColor = Color.BlanchedAlmond
  5929.             End If
  5930.             If (Position(5, 4) = "0" Or CheckEnemy("black", 5, 4) = True) And CheckPiece(6, 5) = "0" Then
  5931.                 pbe6.BackColor = Color.BlanchedAlmond
  5932.             End If
  5933.             If (Position(4, 3) = "0" Or CheckEnemy("black", 4, 3) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" Then
  5934.                 pbd5.BackColor = Color.BlanchedAlmond
  5935.             End If
  5936.             If (Position(3, 2) = "0" Or CheckEnemy("black", 3, 2) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" Then
  5937.                 pbc4.BackColor = Color.BlanchedAlmond
  5938.             End If
  5939.             If (Position(2, 1) = "0" Or CheckEnemy("black", 2, 1) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" Then
  5940.                 pbb3.BackColor = Color.BlanchedAlmond
  5941.             End If
  5942.             If (Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(2, 1) = "0" Then
  5943.                 pbb3.BackColor = Color.BlanchedAlmond
  5944.             End If
  5945.         ElseIf piece = "whqueen" Then
  5946.             square = "g8"
  5947.             PieceToBeMoved = "whqueen"
  5948.             If Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True Then
  5949.                 pbh7.BackColor = Color.BlanchedAlmond
  5950.             End If
  5951.             If Position(6, 5) = "0" Or CheckEnemy("white", 6, 5) = True Then
  5952.                 pbf7.BackColor = Color.BlanchedAlmond
  5953.             End If
  5954.             If (Position(5, 4) = "0" Or CheckEnemy("white", 5, 4) = True) And CheckPiece(6, 5) = "0" Then
  5955.                 pbe6.BackColor = Color.BlanchedAlmond
  5956.             End If
  5957.             If (Position(4, 3) = "0" Or CheckEnemy("white", 4, 3) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" Then
  5958.                 pbd5.BackColor = Color.BlanchedAlmond
  5959.             End If
  5960.             If (Position(3, 2) = "0" Or CheckEnemy("white", 3, 2) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" Then
  5961.                 pbc4.BackColor = Color.BlanchedAlmond
  5962.             End If
  5963.             If (Position(2, 1) = "0" Or CheckEnemy("white", 2, 1) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" Then
  5964.                 pbb3.BackColor = Color.BlanchedAlmond
  5965.             End If
  5966.             If (Position(1, 0) = "0" Or CheckEnemy("white", 1, 0) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(2, 1) = "0" Then
  5967.                 pbb3.BackColor = Color.BlanchedAlmond
  5968.             End If
  5969.             If Position(7, 7) = "0" Or CheckEnemy("white", 7, 7) = True Then
  5970.                 pbh8.BackColor = Color.BlanchedAlmond
  5971.             End If
  5972.             If Position(7, 5) = "0" Or CheckEnemy("white", 7, 5) = True Then
  5973.                 pbf8.BackColor = Color.BlanchedAlmond
  5974.             End If
  5975.             If (Position(7, 4) = "0" Or CheckEnemy("white", 7, 4) = True) And CheckPiece(7, 5) = "0" Then
  5976.                 pbe8.BackColor = Color.BlanchedAlmond
  5977.             End If
  5978.             If (Position(7, 3) = "0" Or CheckEnemy("white", 7, 3) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  5979.                 pbd8.BackColor = Color.BlanchedAlmond
  5980.             End If
  5981.             If (Position(7, 2) = "0" Or CheckEnemy("white", 7, 2) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  5982.                 pbc8.BackColor = Color.BlanchedAlmond
  5983.             End If
  5984.             If (Position(7, 1) = "0" Or CheckEnemy("white", 7, 1) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  5985.                 pbb8.BackColor = Color.BlanchedAlmond
  5986.             End If
  5987.             If (Position(7, 0) = "0" Or CheckEnemy("white", 7, 0) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  5988.                 pbb8.BackColor = Color.BlanchedAlmond
  5989.             End If
  5990.             If Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True Then
  5991.                 pbg7.BackColor = Color.BlanchedAlmond
  5992.             End If
  5993.             If (Position(5, 6) = "0" Or CheckEnemy("white", 5, 6) = True) And CheckPiece(6, 6) = "0" Then
  5994.                 pbg6.BackColor = Color.BlanchedAlmond
  5995.             End If
  5996.             If (Position(4, 6) = "0" Or CheckEnemy("white", 4, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" Then
  5997.                 pbg5.BackColor = Color.BlanchedAlmond
  5998.             End If
  5999.             If (Position(3, 6) = "0" Or CheckEnemy("white", 3, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" Then
  6000.                 pbg4.BackColor = Color.BlanchedAlmond
  6001.             End If
  6002.             If (Position(2, 6) = "0" Or CheckEnemy("white", 2, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" Then
  6003.                 pbg3.BackColor = Color.BlanchedAlmond
  6004.             End If
  6005.             If (Position(1, 6) = "0" Or CheckEnemy("white", 1, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" Then
  6006.                 pbg2.BackColor = Color.BlanchedAlmond
  6007.             End If
  6008.             If (Position(0, 6) = "0" Or CheckEnemy("white", 0, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" And CheckPiece(1, 6) = "0" Then
  6009.                 pbg1.BackColor = Color.BlanchedAlmond
  6010.             End If
  6011.         ElseIf piece = "blqueen" Then
  6012.             square = "g8"
  6013.             PieceToBeMoved = "blqueen"
  6014.             If Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True Then
  6015.                 pbh7.BackColor = Color.BlanchedAlmond
  6016.             End If
  6017.             If Position(6, 5) = "0" Or CheckEnemy("black", 6, 5) = True Then
  6018.                 pbf7.BackColor = Color.BlanchedAlmond
  6019.             End If
  6020.             If (Position(5, 4) = "0" Or CheckEnemy("black", 5, 4) = True) And CheckPiece(6, 5) = "0" Then
  6021.                 pbe6.BackColor = Color.BlanchedAlmond
  6022.             End If
  6023.             If (Position(4, 3) = "0" Or CheckEnemy("black", 4, 3) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" Then
  6024.                 pbd5.BackColor = Color.BlanchedAlmond
  6025.             End If
  6026.             If (Position(3, 2) = "0" Or CheckEnemy("black", 3, 2) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" Then
  6027.                 pbc4.BackColor = Color.BlanchedAlmond
  6028.             End If
  6029.             If (Position(2, 1) = "0" Or CheckEnemy("black", 2, 1) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" Then
  6030.                 pbb3.BackColor = Color.BlanchedAlmond
  6031.             End If
  6032.             If (Position(1, 0) = "0" Or CheckEnemy("black", 1, 0) = True) And CheckPiece(6, 5) = "0" And CheckPiece(5, 4) = "0" And CheckPiece(4, 3) = "0" And CheckPiece(3, 2) = "0" And CheckPiece(2, 1) = "0" Then
  6033.                 pbb3.BackColor = Color.BlanchedAlmond
  6034.             End If
  6035.             If Position(7, 7) = "0" Or CheckEnemy("black", 7, 7) = True Then
  6036.                 pbh8.BackColor = Color.BlanchedAlmond
  6037.             End If
  6038.             If Position(7, 5) = "0" Or CheckEnemy("black", 7, 5) = True Then
  6039.                 pbf8.BackColor = Color.BlanchedAlmond
  6040.             End If
  6041.             If (Position(7, 4) = "0" Or CheckEnemy("black", 7, 4) = True) And CheckPiece(7, 5) = "0" Then
  6042.                 pbe8.BackColor = Color.BlanchedAlmond
  6043.             End If
  6044.             If (Position(7, 3) = "0" Or CheckEnemy("black", 7, 3) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  6045.                 pbd8.BackColor = Color.BlanchedAlmond
  6046.             End If
  6047.             If (Position(7, 2) = "0" Or CheckEnemy("black", 7, 2) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  6048.                 pbc8.BackColor = Color.BlanchedAlmond
  6049.             End If
  6050.             If (Position(7, 1) = "0" Or CheckEnemy("black", 7, 1) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  6051.                 pbb8.BackColor = Color.BlanchedAlmond
  6052.             End If
  6053.             If (Position(7, 0) = "0" Or CheckEnemy("black", 7, 0) = True) And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  6054.                 pbb8.BackColor = Color.BlanchedAlmond
  6055.             End If
  6056.             If Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True Then
  6057.                 pbg7.BackColor = Color.BlanchedAlmond
  6058.             End If
  6059.             If (Position(5, 6) = "0" Or CheckEnemy("black", 5, 6) = True) And CheckPiece(6, 6) = "0" Then
  6060.                 pbg6.BackColor = Color.BlanchedAlmond
  6061.             End If
  6062.             If (Position(4, 6) = "0" Or CheckEnemy("black", 4, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" Then
  6063.                 pbg5.BackColor = Color.BlanchedAlmond
  6064.             End If
  6065.             If (Position(3, 6) = "0" Or CheckEnemy("black", 3, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" Then
  6066.                 pbg4.BackColor = Color.BlanchedAlmond
  6067.             End If
  6068.             If (Position(2, 6) = "0" Or CheckEnemy("black", 2, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" Then
  6069.                 pbg3.BackColor = Color.BlanchedAlmond
  6070.             End If
  6071.             If (Position(1, 6) = "0" Or CheckEnemy("black", 1, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" Then
  6072.                 pbg2.BackColor = Color.BlanchedAlmond
  6073.             End If
  6074.             If (Position(0, 6) = "0" Or CheckEnemy("black", 0, 6) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 6) = "0" And CheckPiece(4, 6) = "0" And CheckPiece(3, 6) = "0" And CheckPiece(2, 6) = "0" And CheckPiece(1, 6) = "0" Then
  6075.                 pbg1.BackColor = Color.BlanchedAlmond
  6076.             End If
  6077.         ElseIf piece = "whking" Then
  6078.             square = "g8"
  6079.             PieceToBeMoved = "whking"
  6080.             If Position(7, 7) = "0" Or CheckEnemy("white", 7, 7) = True Then
  6081.                 pbh8.BackColor = Color.BlanchedAlmond
  6082.             End If
  6083.             If Position(7, 5) = "0" Or CheckEnemy("white", 7, 5) = True Then
  6084.                 pbf8.BackColor = Color.BlanchedAlmond
  6085.             End If
  6086.             If Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True Then
  6087.                 pbg7.BackColor = Color.BlanchedAlmond
  6088.             End If
  6089.             If Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True Then
  6090.                 pbh7.BackColor = Color.BlanchedAlmond
  6091.             End If
  6092.             If Position(6, 5) = "0" Or CheckEnemy("white", 6, 5) = True Then
  6093.                 pbf7.BackColor = Color.BlanchedAlmond
  6094.             End If
  6095.         ElseIf piece = "blking" Then
  6096.             square = "g8"
  6097.             PieceToBeMoved = "blking"
  6098.             If Position(7, 7) = "0" Or CheckEnemy("black", 7, 7) = True Then
  6099.                 pbh8.BackColor = Color.BlanchedAlmond
  6100.             End If
  6101.             If Position(7, 5) = "0" Or CheckEnemy("black", 7, 5) = True Then
  6102.                 pbf8.BackColor = Color.BlanchedAlmond
  6103.             End If
  6104.             If Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True Then
  6105.                 pbg7.BackColor = Color.BlanchedAlmond
  6106.             End If
  6107.             If Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True Then
  6108.                 pbh7.BackColor = Color.BlanchedAlmond
  6109.             End If
  6110.             If Position(6, 5) = "0" Or CheckEnemy("black", 6, 5) = True Then
  6111.                 pbf7.BackColor = Color.BlanchedAlmond
  6112.             End If
  6113.         End If
  6114.     End Sub
  6115.  
  6116.     Private Sub pbh8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbh8.Click
  6117.         piece = CheckPiece(7, 7)
  6118.         If pbh8.BackColor = Color.BlanchedAlmond And piece = "0" Then
  6119.             If PieceToBeMoved = "whpawn" Then
  6120.                 pbh8.Image = Image.FromFile("whitequeen.cur")
  6121.                 Call OriginalColour()
  6122.                 Position(7, 7) = "whqueen"
  6123.                 Select Case square
  6124.                     Case "g7"
  6125.                         Position(6, 6) = "0"
  6126.                         pbg7.Image = Nothing
  6127.                     Case "h7"
  6128.                         Position(6, 7) = "0"
  6129.                         pbh7.Image = Nothing
  6130.                 End Select
  6131.             ElseIf PieceToBeMoved = "blpawn" Then
  6132.                 pbh8.Image = Image.FromFile("blackpawn.cur")
  6133.             ElseIf PieceToBeMoved = "whrook" Then
  6134.                 pbh8.Image = Image.FromFile("whiterook.cur")
  6135.                 Call OriginalColour()
  6136.                 Position(7, 7) = "whrook"
  6137.                 Select Case square
  6138.                     Case "h7"
  6139.                         Position(6, 7) = "0"
  6140.                         pbh7.Image = Nothing
  6141.                     Case "h6"
  6142.                         Position(5, 7) = "0"
  6143.                         pbh6.Image = Nothing
  6144.                     Case "h5"
  6145.                         Position(4, 7) = "0"
  6146.                         pbh5.Image = Nothing
  6147.                     Case "h4"
  6148.                         Position(3, 7) = "0"
  6149.                         pbh4.Image = Nothing
  6150.                     Case "h3"
  6151.                         Position(2, 7) = "0"
  6152.                         pbh3.Image = Nothing
  6153.                     Case "h2"
  6154.                         Position(1, 7) = "0"
  6155.                         pbh2.Image = Nothing
  6156.                     Case "h1"
  6157.                         Position(0, 7) = "0"
  6158.                         pbh1.Image = Nothing
  6159.                     Case "g8"
  6160.                         Position(7, 6) = "0"
  6161.                         pbg7.Image = Nothing
  6162.                     Case "a8"
  6163.                         Position(7, 0) = "0"
  6164.                         pba8.Image = Nothing
  6165.                     Case "b8"
  6166.                         Position(7, 1) = "0"
  6167.                         pbb8.Image = Nothing
  6168.                     Case "c8"
  6169.                         Position(7, 2) = "0"
  6170.                         pbc8.Image = Nothing
  6171.                     Case "d8"
  6172.                         Position(7, 3) = "0"
  6173.                         pbd8.Image = Nothing
  6174.                     Case "e8"
  6175.                         Position(7, 4) = "0"
  6176.                         pbe8.Image = Nothing
  6177.                     Case "f8"
  6178.                         Position(7, 5) = "0"
  6179.                         pbf8.Image = Nothing
  6180.                 End Select
  6181.             ElseIf PieceToBeMoved = "blrook" Then
  6182.                 pbh8.Image = Image.FromFile("blackrook.cur")
  6183.                 Call OriginalColour()
  6184.                 Position(7, 7) = "blrook"
  6185.                 Select Case square
  6186.                     Case "h7"
  6187.                         Position(6, 7) = "0"
  6188.                         pbh7.Image = Nothing
  6189.                     Case "h6"
  6190.                         Position(5, 7) = "0"
  6191.                         pbh6.Image = Nothing
  6192.                     Case "h5"
  6193.                         Position(4, 7) = "0"
  6194.                         pbh5.Image = Nothing
  6195.                     Case "h4"
  6196.                         Position(3, 7) = "0"
  6197.                         pbh4.Image = Nothing
  6198.                     Case "h3"
  6199.                         Position(2, 7) = "0"
  6200.                         pbh3.Image = Nothing
  6201.                     Case "h2"
  6202.                         Position(1, 7) = "0"
  6203.                         pbh2.Image = Nothing
  6204.                     Case "h1"
  6205.                         Position(0, 7) = "0"
  6206.                         pbh1.Image = Nothing
  6207.                     Case "g8"
  6208.                         Position(7, 6) = "0"
  6209.                         pbg7.Image = Nothing
  6210.                     Case "a8"
  6211.                         Position(7, 0) = "0"
  6212.                         pba8.Image = Nothing
  6213.                     Case "b8"
  6214.                         Position(7, 1) = "0"
  6215.                         pbb8.Image = Nothing
  6216.                     Case "c8"
  6217.                         Position(7, 2) = "0"
  6218.                         pbc8.Image = Nothing
  6219.                     Case "d8"
  6220.                         Position(7, 3) = "0"
  6221.                         pbd8.Image = Nothing
  6222.                     Case "e8"
  6223.                         Position(7, 4) = "0"
  6224.                         pbe8.Image = Nothing
  6225.                     Case "f8"
  6226.                         Position(7, 5) = "0"
  6227.                         pbf8.Image = Nothing
  6228.                 End Select
  6229.             ElseIf PieceToBeMoved = "whknight" Then
  6230.                 pbh8.Image = Image.FromFile("whiteknight.cur")
  6231.                 Call OriginalColour()
  6232.                 Position(7, 7) = "whknight"
  6233.                 Select Case square
  6234.                     Case "g6"
  6235.                         Position(5, 6) = "0"
  6236.                         pbg6.Image = Nothing
  6237.                     Case "f7"
  6238.                         Position(6, 5) = "0"
  6239.                         pbf7.Image = Nothing
  6240.                 End Select
  6241.             ElseIf PieceToBeMoved = "blknight" Then
  6242.                 pbh8.Image = Image.FromFile("blackknight.cur")
  6243.                 Call OriginalColour()
  6244.                 Position(7, 7) = "whknight"
  6245.                 Select Case square
  6246.                     Case "g6"
  6247.                         Position(5, 6) = "0"
  6248.                         pbg6.Image = Nothing
  6249.                     Case "f7"
  6250.                         Position(6, 5) = "0"
  6251.                         pbf7.Image = Nothing
  6252.                 End Select
  6253.             ElseIf PieceToBeMoved = "whbishop" Then
  6254.                 pbh8.Image = Image.FromFile("whitebishop.cur")
  6255.                 Call OriginalColour()
  6256.                 Position(7, 7) = "whbishop"
  6257.                 Select Case square
  6258.                     Case "b2"
  6259.                         Position(1, 1) = "0"
  6260.                         pbb2.Image = Nothing
  6261.                     Case "c3"
  6262.                         Position(2, 2) = "0"
  6263.                         pbc3.Image = Nothing
  6264.                     Case "d4"
  6265.                         Position(3, 3) = "0"
  6266.                         pbd4.Image = Nothing
  6267.                     Case "e5"
  6268.                         Position(4, 4) = "0"
  6269.                         pbe5.Image = Nothing
  6270.                     Case "f6"
  6271.                         Position(5, 5) = "0"
  6272.                         pbf6.Image = Nothing
  6273.                     Case "g7"
  6274.                         Position(6, 6) = "0"
  6275.                         pbg7.Image = Nothing
  6276.                     Case "a1"
  6277.                         Position(0, 0) = "0"
  6278.                         pba1.Image = Nothing
  6279.                 End Select
  6280.             ElseIf PieceToBeMoved = "blbishop" Then
  6281.                 pbh8.Image = Image.FromFile("blackbishop.cur")
  6282.                 Call OriginalColour()
  6283.                 Position(7, 7) = "blbishop"
  6284.                 Select Case square
  6285.                     Case "b2"
  6286.                         Position(1, 1) = "0"
  6287.                         pbb2.Image = Nothing
  6288.                     Case "c3"
  6289.                         Position(2, 2) = "0"
  6290.                         pbc3.Image = Nothing
  6291.                     Case "d4"
  6292.                         Position(3, 3) = "0"
  6293.                         pbd4.Image = Nothing
  6294.                     Case "e5"
  6295.                         Position(4, 4) = "0"
  6296.                         pbe5.Image = Nothing
  6297.                     Case "f6"
  6298.                         Position(5, 5) = "0"
  6299.                         pbf6.Image = Nothing
  6300.                     Case "g7"
  6301.                         Position(6, 6) = "0"
  6302.                         pbg7.Image = Nothing
  6303.                     Case "a1"
  6304.                         Position(0, 0) = "0"
  6305.                         pba1.Image = Nothing
  6306.                 End Select
  6307.             ElseIf PieceToBeMoved = "whqueen" Then
  6308.                 pbh8.Image = Image.FromFile("whitequeen.cur")
  6309.                 Call OriginalColour()
  6310.                 Position(7, 7) = "whqueen"
  6311.                 Select Case square
  6312.                     Case "b2"
  6313.                         Position(1, 1) = "0"
  6314.                         pbb2.Image = Nothing
  6315.                     Case "c3"
  6316.                         Position(2, 2) = "0"
  6317.                         pbc3.Image = Nothing
  6318.                     Case "d4"
  6319.                         Position(3, 3) = "0"
  6320.                         pbd4.Image = Nothing
  6321.                     Case "e5"
  6322.                         Position(4, 4) = "0"
  6323.                         pbe5.Image = Nothing
  6324.                     Case "f6"
  6325.                         Position(5, 5) = "0"
  6326.                         pbf6.Image = Nothing
  6327.                     Case "g7"
  6328.                         Position(6, 6) = "0"
  6329.                         pbg7.Image = Nothing
  6330.                     Case "a1"
  6331.                         Position(0, 0) = "0"
  6332.                         pba1.Image = Nothing
  6333.                     Case "h7"
  6334.                         Position(6, 7) = "0"
  6335.                         pbh7.Image = Nothing
  6336.                     Case "h6"
  6337.                         Position(5, 7) = "0"
  6338.                         pbh6.Image = Nothing
  6339.                     Case "h5"
  6340.                         Position(4, 7) = "0"
  6341.                         pbh5.Image = Nothing
  6342.                     Case "h4"
  6343.                         Position(3, 7) = "0"
  6344.                         pbh4.Image = Nothing
  6345.                     Case "h3"
  6346.                         Position(2, 7) = "0"
  6347.                         pbh3.Image = Nothing
  6348.                     Case "h2"
  6349.                         Position(1, 7) = "0"
  6350.                         pbh2.Image = Nothing
  6351.                     Case "h1"
  6352.                         Position(0, 7) = "0"
  6353.                         pbh1.Image = Nothing
  6354.                     Case "g8"
  6355.                         Position(7, 6) = "0"
  6356.                         pbg7.Image = Nothing
  6357.                     Case "a8"
  6358.                         Position(7, 0) = "0"
  6359.                         pba8.Image = Nothing
  6360.                     Case "b8"
  6361.                         Position(7, 1) = "0"
  6362.                         pbb8.Image = Nothing
  6363.                     Case "c8"
  6364.                         Position(7, 2) = "0"
  6365.                         pbc8.Image = Nothing
  6366.                     Case "d8"
  6367.                         Position(7, 3) = "0"
  6368.                         pbd8.Image = Nothing
  6369.                     Case "e8"
  6370.                         Position(7, 4) = "0"
  6371.                         pbe8.Image = Nothing
  6372.                     Case "f8"
  6373.                         Position(7, 5) = "0"
  6374.                         pbf8.Image = Nothing
  6375.                 End Select
  6376.             ElseIf PieceToBeMoved = "blqueen" Then
  6377.                 pbh8.Image = Image.FromFile("blackqueen.cur")
  6378.                 Call OriginalColour()
  6379.                 Position(7, 7) = "blqueen"
  6380.                 Select Case square
  6381.                     Case "b2"
  6382.                         Position(1, 1) = "0"
  6383.                         pbb2.Image = Nothing
  6384.                     Case "c3"
  6385.                         Position(2, 2) = "0"
  6386.                         pbc3.Image = Nothing
  6387.                     Case "d4"
  6388.                         Position(3, 3) = "0"
  6389.                         pbd4.Image = Nothing
  6390.                     Case "e5"
  6391.                         Position(4, 4) = "0"
  6392.                         pbe5.Image = Nothing
  6393.                     Case "f6"
  6394.                         Position(5, 5) = "0"
  6395.                         pbf6.Image = Nothing
  6396.                     Case "g7"
  6397.                         Position(6, 6) = "0"
  6398.                         pbg7.Image = Nothing
  6399.                     Case "a1"
  6400.                         Position(0, 0) = "0"
  6401.                         pba1.Image = Nothing
  6402.                     Case "h7"
  6403.                         Position(6, 7) = "0"
  6404.                         pbh7.Image = Nothing
  6405.                     Case "h6"
  6406.                         Position(5, 7) = "0"
  6407.                         pbh6.Image = Nothing
  6408.                     Case "h5"
  6409.                         Position(4, 7) = "0"
  6410.                         pbh5.Image = Nothing
  6411.                     Case "h4"
  6412.                         Position(3, 7) = "0"
  6413.                         pbh4.Image = Nothing
  6414.                     Case "h3"
  6415.                         Position(2, 7) = "0"
  6416.                         pbh3.Image = Nothing
  6417.                     Case "h2"
  6418.                         Position(1, 7) = "0"
  6419.                         pbh2.Image = Nothing
  6420.                     Case "h1"
  6421.                         Position(0, 7) = "0"
  6422.                         pbh1.Image = Nothing
  6423.                     Case "g8"
  6424.                         Position(7, 6) = "0"
  6425.                         pbg7.Image = Nothing
  6426.                     Case "a8"
  6427.                         Position(7, 0) = "0"
  6428.                         pba8.Image = Nothing
  6429.                     Case "b8"
  6430.                         Position(7, 1) = "0"
  6431.                         pbb8.Image = Nothing
  6432.                     Case "c8"
  6433.                         Position(7, 2) = "0"
  6434.                         pbc8.Image = Nothing
  6435.                     Case "d8"
  6436.                         Position(7, 3) = "0"
  6437.                         pbd8.Image = Nothing
  6438.                     Case "e8"
  6439.                         Position(7, 4) = "0"
  6440.                         pbe8.Image = Nothing
  6441.                     Case "f8"
  6442.                         Position(7, 5) = "0"
  6443.                         pbf8.Image = Nothing
  6444.                 End Select
  6445.             ElseIf PieceToBeMoved = "whking" Then
  6446.                 pbh8.Image = Image.FromFile("whiteking.cur")
  6447.                 Position(7, 7) = "whking"
  6448.                 Call OriginalColour()
  6449.                 Select Case square
  6450.                     Case "h7"
  6451.                         pbh7.Image = Nothing
  6452.                         Position(6, 7) = "0"
  6453.                     Case "g7"
  6454.                         pbg6.Image = Nothing
  6455.                         Position(6, 6) = "0"
  6456.                     Case "g8"
  6457.                         pbg8.Image = Nothing
  6458.                         Position(7, 6) = "0"
  6459.                 End Select
  6460.             ElseIf PieceToBeMoved = "blking" Then
  6461.                 pbh8.Image = Image.FromFile("blackking.cur")
  6462.                 Position(7, 7) = "blking"
  6463.                 Call OriginalColour()
  6464.                 Select Case square
  6465.                     Case "h7"
  6466.                         pbh7.Image = Nothing
  6467.                         Position(6, 7) = "0"
  6468.                     Case "g7"
  6469.                         pbg6.Image = Nothing
  6470.                         Position(6, 6) = "0"
  6471.                     Case "g8"
  6472.                         pbg8.Image = Nothing
  6473.                         Position(7, 6) = "0"
  6474.                 End Select
  6475.             End If
  6476.         End If
  6477.         If piece = "whknight" Then
  6478.             square = "h8"
  6479.             PieceToBeMoved = "whknight"
  6480.             If Position(5, 6) = "0" Or CheckEnemy("white", 5, 6) = True Then
  6481.                 pbg6.BackColor = Color.BlanchedAlmond
  6482.             End If
  6483.             If Position(6, 5) = "0" Or CheckEnemy("white", 6, 5) = True Then
  6484.                 pbf7.BackColor = Color.BlanchedAlmond
  6485.             End If
  6486.         ElseIf piece = "blknight" Then
  6487.             square = "h8"
  6488.             PieceToBeMoved = "blknight"
  6489.             If Position(5, 6) = "0" Or CheckEnemy("black", 5, 6) = True Then
  6490.                 pbg6.BackColor = Color.BlanchedAlmond
  6491.             End If
  6492.             If Position(6, 5) = "0" Or CheckEnemy("black", 6, 5) = True Then
  6493.                 pbf7.BackColor = Color.BlanchedAlmond
  6494.             End If
  6495.         ElseIf piece = "whrook" Then
  6496.             square = "h8"
  6497.             PieceToBeMoved = "whrook"
  6498.             If Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True Then
  6499.                 pbh7.BackColor = Color.BlanchedAlmond
  6500.             End If
  6501.             If (Position(5, 7) = "0" Or CheckEnemy("white", 5, 7) = True) And CheckPiece(6, 7) = "0" Then
  6502.                 pbh6.BackColor = Color.BlanchedAlmond
  6503.             End If
  6504.             If (Position(4, 7) = "0" Or CheckEnemy("white", 4, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" Then
  6505.                 pbh5.BackColor = Color.BlanchedAlmond
  6506.             End If
  6507.             If (Position(3, 7) = "0" Or CheckEnemy("white", 3, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" Then
  6508.                 pbh4.BackColor = Color.BlanchedAlmond
  6509.             End If
  6510.             If (Position(2, 7) = "0" Or CheckEnemy("white", 2, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" Then
  6511.                 pbh3.BackColor = Color.BlanchedAlmond
  6512.             End If
  6513.             If (Position(1, 7) = "0" Or CheckEnemy("white", 1, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" Then
  6514.                 pbh2.BackColor = Color.BlanchedAlmond
  6515.             End If
  6516.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" And CheckPiece(1, 7) = "0" Then
  6517.                 pbh1.BackColor = Color.BlanchedAlmond
  6518.             End If
  6519.             If Position(7, 6) = "0" Or CheckEnemy("white", 7, 6) = True Then
  6520.                 pbg8.BackColor = Color.BlanchedAlmond
  6521.             End If
  6522.             If (Position(7, 5) = "0" Or CheckEnemy("white", 7, 5) = True) And CheckPiece(7, 6) = "0" Then
  6523.                 pbf8.BackColor = Color.BlanchedAlmond
  6524.             End If
  6525.             If (Position(7, 4) = "0" Or CheckEnemy("white", 7, 4) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" Then
  6526.                 pbe8.BackColor = Color.BlanchedAlmond
  6527.             End If
  6528.             If (Position(7, 3) = "0" Or CheckEnemy("white", 7, 3) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  6529.                 pbd8.BackColor = Color.BlanchedAlmond
  6530.             End If
  6531.             If (Position(7, 2) = "0" Or CheckEnemy("white", 7, 2) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  6532.                 pbc8.BackColor = Color.BlanchedAlmond
  6533.             End If
  6534.             If (Position(7, 1) = "0" Or CheckEnemy("white", 7, 1) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  6535.                 pbb8.BackColor = Color.BlanchedAlmond
  6536.             End If
  6537.             If (Position(7, 0) = "0" Or CheckEnemy("white", 7, 0) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  6538.                 pba8.BackColor = Color.BlanchedAlmond
  6539.             End If
  6540.         ElseIf piece = "blrook" Then
  6541.             square = "h8"
  6542.             PieceToBeMoved = "blrook"
  6543.             If Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True Then
  6544.                 pbh7.BackColor = Color.BlanchedAlmond
  6545.             End If
  6546.             If (Position(5, 7) = "0" Or CheckEnemy("black", 5, 7) = True) And CheckPiece(6, 7) = "0" Then
  6547.                 pbh6.BackColor = Color.BlanchedAlmond
  6548.             End If
  6549.             If (Position(4, 7) = "0" Or CheckEnemy("black", 4, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" Then
  6550.                 pbh5.BackColor = Color.BlanchedAlmond
  6551.             End If
  6552.             If (Position(3, 7) = "0" Or CheckEnemy("black", 3, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" Then
  6553.                 pbh4.BackColor = Color.BlanchedAlmond
  6554.             End If
  6555.             If (Position(2, 7) = "0" Or CheckEnemy("black", 2, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" Then
  6556.                 pbh3.BackColor = Color.BlanchedAlmond
  6557.             End If
  6558.             If (Position(1, 7) = "0" Or CheckEnemy("black", 1, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" Then
  6559.                 pbh2.BackColor = Color.BlanchedAlmond
  6560.             End If
  6561.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" And CheckPiece(1, 7) = "0" Then
  6562.                 pbh1.BackColor = Color.BlanchedAlmond
  6563.             End If
  6564.             If Position(7, 6) = "0" Or CheckEnemy("black", 7, 6) = True Then
  6565.                 pbg8.BackColor = Color.BlanchedAlmond
  6566.             End If
  6567.             If (Position(7, 5) = "0" Or CheckEnemy("black", 7, 5) = True) And CheckPiece(7, 6) = "0" Then
  6568.                 pbf8.BackColor = Color.BlanchedAlmond
  6569.             End If
  6570.             If (Position(7, 4) = "0" Or CheckEnemy("black", 7, 4) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" Then
  6571.                 pbe8.BackColor = Color.BlanchedAlmond
  6572.             End If
  6573.             If (Position(7, 3) = "0" Or CheckEnemy("black", 7, 3) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  6574.                 pbd8.BackColor = Color.BlanchedAlmond
  6575.             End If
  6576.             If (Position(7, 2) = "0" Or CheckEnemy("black", 7, 2) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  6577.                 pbc8.BackColor = Color.BlanchedAlmond
  6578.             End If
  6579.             If (Position(7, 1) = "0" Or CheckEnemy("black", 7, 1) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  6580.                 pbb8.BackColor = Color.BlanchedAlmond
  6581.             End If
  6582.             If (Position(7, 0) = "0" Or CheckEnemy("black", 7, 0) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  6583.                 pba8.BackColor = Color.BlanchedAlmond
  6584.             End If
  6585.         ElseIf piece = "whbishop" Then
  6586.             square = "d1"
  6587.             PieceToBeMoved = "whbishop"
  6588.             If Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True Then
  6589.                 pbg7.BackColor = Color.BlanchedAlmond
  6590.             End If
  6591.             If (Position(5, 5) = "0" Or CheckEnemy("white", 5, 5) = True) And CheckPiece(6, 6) = "0" Then
  6592.                 pbf6.BackColor = Color.BlanchedAlmond
  6593.             End If
  6594.             If (Position(4, 4) = "0" Or CheckEnemy("white", 4, 4) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" Then
  6595.                 pbe5.BackColor = Color.BlanchedAlmond
  6596.             End If
  6597.             If (Position(3, 3) = "0" Or CheckEnemy("white", 3, 3) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" Then
  6598.                 pbd4.BackColor = Color.BlanchedAlmond
  6599.             End If
  6600.             If (Position(2, 2) = "0" Or CheckEnemy("white", 2, 2) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" Then
  6601.                 pbc3.BackColor = Color.BlanchedAlmond
  6602.             End If
  6603.             If (Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" Then
  6604.                 pbb2.BackColor = Color.BlanchedAlmond
  6605.             End If
  6606.             If (Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(1, 1) = "0" Then
  6607.                 pba1.BackColor = Color.BlanchedAlmond
  6608.             End If
  6609.         ElseIf piece = "blbishop" Then
  6610.             square = "d1"
  6611.             PieceToBeMoved = "blbishop"
  6612.             If Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True Then
  6613.                 pbg7.BackColor = Color.BlanchedAlmond
  6614.             End If
  6615.             If (Position(5, 5) = "0" Or CheckEnemy("black", 5, 5) = True) And CheckPiece(6, 6) = "0" Then
  6616.                 pbf6.BackColor = Color.BlanchedAlmond
  6617.             End If
  6618.             If (Position(4, 4) = "0" Or CheckEnemy("black", 4, 4) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" Then
  6619.                 pbe5.BackColor = Color.BlanchedAlmond
  6620.             End If
  6621.             If (Position(3, 3) = "0" Or CheckEnemy("black", 3, 3) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" Then
  6622.                 pbd4.BackColor = Color.BlanchedAlmond
  6623.             End If
  6624.             If (Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" Then
  6625.                 pbc3.BackColor = Color.BlanchedAlmond
  6626.             End If
  6627.             If (Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" Then
  6628.                 pbb2.BackColor = Color.BlanchedAlmond
  6629.             End If
  6630.             If (Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(1, 1) = "0" Then
  6631.                 pba1.BackColor = Color.BlanchedAlmond
  6632.             End If
  6633.         ElseIf piece = "whqueen" Then
  6634.             square = "d1"
  6635.             PieceToBeMoved = "whqueen"
  6636.             If Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True Then
  6637.                 pbh7.BackColor = Color.BlanchedAlmond
  6638.             End If
  6639.             If (Position(5, 7) = "0" Or CheckEnemy("white", 5, 7) = True) And CheckPiece(6, 7) = "0" Then
  6640.                 pbh6.BackColor = Color.BlanchedAlmond
  6641.             End If
  6642.             If (Position(4, 7) = "0" Or CheckEnemy("white", 4, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" Then
  6643.                 pbh5.BackColor = Color.BlanchedAlmond
  6644.             End If
  6645.             If (Position(3, 7) = "0" Or CheckEnemy("white", 3, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" Then
  6646.                 pbh4.BackColor = Color.BlanchedAlmond
  6647.             End If
  6648.             If (Position(2, 7) = "0" Or CheckEnemy("white", 2, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" Then
  6649.                 pbh3.BackColor = Color.BlanchedAlmond
  6650.             End If
  6651.             If (Position(1, 7) = "0" Or CheckEnemy("white", 1, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" Then
  6652.                 pbh2.BackColor = Color.BlanchedAlmond
  6653.             End If
  6654.             If (Position(0, 7) = "0" Or CheckEnemy("white", 0, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" And CheckPiece(1, 7) = "0" Then
  6655.                 pbh1.BackColor = Color.BlanchedAlmond
  6656.             End If
  6657.             If Position(7, 6) = "0" Or CheckEnemy("white", 7, 6) = True Then
  6658.                 pbg8.BackColor = Color.BlanchedAlmond
  6659.             End If
  6660.             If (Position(7, 5) = "0" Or CheckEnemy("white", 7, 5) = True) And CheckPiece(7, 6) = "0" Then
  6661.                 pbf8.BackColor = Color.BlanchedAlmond
  6662.             End If
  6663.             If (Position(7, 4) = "0" Or CheckEnemy("white", 7, 4) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" Then
  6664.                 pbe8.BackColor = Color.BlanchedAlmond
  6665.             End If
  6666.             If (Position(7, 3) = "0" Or CheckEnemy("white", 7, 3) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  6667.                 pbd8.BackColor = Color.BlanchedAlmond
  6668.             End If
  6669.             If (Position(7, 2) = "0" Or CheckEnemy("white", 7, 2) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  6670.                 pbc8.BackColor = Color.BlanchedAlmond
  6671.             End If
  6672.             If (Position(7, 1) = "0" Or CheckEnemy("white", 7, 1) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  6673.                 pbb8.BackColor = Color.BlanchedAlmond
  6674.             End If
  6675.             If (Position(7, 0) = "0" Or CheckEnemy("white", 7, 0) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  6676.                 pba8.BackColor = Color.BlanchedAlmond
  6677.             End If
  6678.             If Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True Then
  6679.                 pbg7.BackColor = Color.BlanchedAlmond
  6680.             End If
  6681.             If (Position(5, 5) = "0" Or CheckEnemy("white", 5, 5) = True) And CheckPiece(6, 6) = "0" Then
  6682.                 pbf6.BackColor = Color.BlanchedAlmond
  6683.             End If
  6684.             If (Position(4, 4) = "0" Or CheckEnemy("white", 4, 4) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" Then
  6685.                 pbe5.BackColor = Color.BlanchedAlmond
  6686.             End If
  6687.             If (Position(3, 3) = "0" Or CheckEnemy("white", 3, 3) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" Then
  6688.                 pbd4.BackColor = Color.BlanchedAlmond
  6689.             End If
  6690.             If (Position(2, 2) = "0" Or CheckEnemy("white", 2, 2) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" Then
  6691.                 pbc3.BackColor = Color.BlanchedAlmond
  6692.             End If
  6693.             If (Position(1, 1) = "0" Or CheckEnemy("white", 1, 1) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" Then
  6694.                 pbb2.BackColor = Color.BlanchedAlmond
  6695.             End If
  6696.             If (Position(0, 0) = "0" Or CheckEnemy("white", 0, 0) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(1, 1) = "0" Then
  6697.                 pba1.BackColor = Color.BlanchedAlmond
  6698.             End If
  6699.         ElseIf piece = "blqueen" Then
  6700.             square = "d1"
  6701.             PieceToBeMoved = "blqueen"
  6702.             If Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True Then
  6703.                 pbh7.BackColor = Color.BlanchedAlmond
  6704.             End If
  6705.             If (Position(5, 7) = "0" Or CheckEnemy("black", 5, 7) = True) And CheckPiece(6, 7) = "0" Then
  6706.                 pbh6.BackColor = Color.BlanchedAlmond
  6707.             End If
  6708.             If (Position(4, 7) = "0" Or CheckEnemy("black", 4, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" Then
  6709.                 pbh5.BackColor = Color.BlanchedAlmond
  6710.             End If
  6711.             If (Position(3, 7) = "0" Or CheckEnemy("black", 3, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" Then
  6712.                 pbh4.BackColor = Color.BlanchedAlmond
  6713.             End If
  6714.             If (Position(2, 7) = "0" Or CheckEnemy("black", 2, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" Then
  6715.                 pbh3.BackColor = Color.BlanchedAlmond
  6716.             End If
  6717.             If (Position(1, 7) = "0" Or CheckEnemy("black", 1, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" Then
  6718.                 pbh2.BackColor = Color.BlanchedAlmond
  6719.             End If
  6720.             If (Position(0, 7) = "0" Or CheckEnemy("black", 0, 7) = True) And CheckPiece(6, 7) = "0" And CheckPiece(5, 7) = "0" And CheckPiece(4, 7) = "0" And CheckPiece(3, 7) = "0" And CheckPiece(2, 7) = "0" And CheckPiece(1, 7) = "0" Then
  6721.                 pbh1.BackColor = Color.BlanchedAlmond
  6722.             End If
  6723.             If Position(7, 6) = "0" Or CheckEnemy("black", 7, 6) = True Then
  6724.                 pbg8.BackColor = Color.BlanchedAlmond
  6725.             End If
  6726.             If (Position(7, 5) = "0" Or CheckEnemy("black", 7, 5) = True) And CheckPiece(7, 6) = "0" Then
  6727.                 pbf8.BackColor = Color.BlanchedAlmond
  6728.             End If
  6729.             If (Position(7, 4) = "0" Or CheckEnemy("black", 7, 4) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" Then
  6730.                 pbe8.BackColor = Color.BlanchedAlmond
  6731.             End If
  6732.             If (Position(7, 3) = "0" Or CheckEnemy("black", 7, 3) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" Then
  6733.                 pbd8.BackColor = Color.BlanchedAlmond
  6734.             End If
  6735.             If (Position(7, 2) = "0" Or CheckEnemy("black", 7, 2) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" Then
  6736.                 pbc8.BackColor = Color.BlanchedAlmond
  6737.             End If
  6738.             If (Position(7, 1) = "0" Or CheckEnemy("black", 7, 1) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" Then
  6739.                 pbb8.BackColor = Color.BlanchedAlmond
  6740.             End If
  6741.             If (Position(7, 0) = "0" Or CheckEnemy("black", 7, 0) = True) And CheckPiece(7, 6) = "0" And CheckPiece(7, 5) = "0" And CheckPiece(7, 4) = "0" And CheckPiece(7, 3) = "0" And CheckPiece(7, 2) = "0" And CheckPiece(7, 1) = "0" Then
  6742.                 pba8.BackColor = Color.BlanchedAlmond
  6743.             End If
  6744.             If Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True Then
  6745.                 pbg7.BackColor = Color.BlanchedAlmond
  6746.             End If
  6747.             If (Position(5, 5) = "0" Or CheckEnemy("black", 5, 5) = True) And CheckPiece(6, 6) = "0" Then
  6748.                 pbf6.BackColor = Color.BlanchedAlmond
  6749.             End If
  6750.             If (Position(4, 4) = "0" Or CheckEnemy("black", 4, 4) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" Then
  6751.                 pbe5.BackColor = Color.BlanchedAlmond
  6752.             End If
  6753.             If (Position(3, 3) = "0" Or CheckEnemy("black", 3, 3) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" Then
  6754.                 pbd4.BackColor = Color.BlanchedAlmond
  6755.             End If
  6756.             If (Position(2, 2) = "0" Or CheckEnemy("black", 2, 2) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" Then
  6757.                 pbc3.BackColor = Color.BlanchedAlmond
  6758.             End If
  6759.             If (Position(1, 1) = "0" Or CheckEnemy("black", 1, 1) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" Then
  6760.                 pbb2.BackColor = Color.BlanchedAlmond
  6761.             End If
  6762.             If (Position(0, 0) = "0" Or CheckEnemy("black", 0, 0) = True) And CheckPiece(6, 6) = "0" And CheckPiece(5, 5) = "0" And CheckPiece(4, 4) = "0" And CheckPiece(3, 3) = "0" And CheckPiece(2, 2) = "0" And CheckPiece(1, 1) = "0" Then
  6763.                 pba1.BackColor = Color.BlanchedAlmond
  6764.             End If
  6765.         ElseIf piece = "whking" Then
  6766.             square = "d1"
  6767.             PieceToBeMoved = "whking"
  6768.             If Position(6, 6) = "0" Or CheckEnemy("white", 6, 6) = True Then
  6769.                 pbg7.BackColor = Color.BlanchedAlmond
  6770.             End If
  6771.             If Position(6, 7) = "0" Or CheckEnemy("white", 6, 7) = True Then
  6772.                 pbh7.BackColor = Color.BlanchedAlmond
  6773.             End If
  6774.             If Position(7, 6) = "0" Or CheckEnemy("white", 7, 6) = True Then
  6775.                 pbg8.BackColor = Color.BlanchedAlmond
  6776.             End If
  6777.         ElseIf piece = "blking" Then
  6778.             square = "d1"
  6779.             PieceToBeMoved = "blking"
  6780.             If Position(6, 6) = "0" Or CheckEnemy("black", 6, 6) = True Then
  6781.                 pbg7.BackColor = Color.BlanchedAlmond
  6782.             End If
  6783.             If Position(6, 7) = "0" Or CheckEnemy("black", 6, 7) = True Then
  6784.                 pbh7.BackColor = Color.BlanchedAlmond
  6785.             End If
  6786.             If Position(7, 6) = "0" Or CheckEnemy("black", 7, 6) = True Then
  6787.                 pbg8.BackColor = Color.BlanchedAlmond
  6788.             End If
  6789.         End If
  6790.     End Sub
  6791. End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!