This is article revised from the previous Othello (Reverse) article (Visaul basic（オセロ作成のデザイン）).
・GUI (Graphical User Interface)
If a stone cannot be placed and "Pass/End" button is pressed, turn is changed. If either cannot place new one, game is finished.
・Main classes are below. GameBoard refers to Counterpart.vb and ReverseLogic.vb.
GameBoard.vb
GameBoard.Designer.vb
Counterpart.vb
ReverseLogic.vb
The program will work by setting the procedures below.
１．New Project in Visual Studio
Windows Form Application (.NET Framework) Visual Basic
２．Prepare for "Form" and "Class", and change file names and copy codes below.
３．Add "kuro.png" (black) and "shiro.png" (white) (Attached in the bottom),
change to embedded resource in property - build action.
４．Execute
■ Example
■Code
GameBoard.vb
Imports System
Imports System.IO
Imports System.Reflection
Public Class GameBoard
Dim rl_ As ReverseLogic
Dim cp_ As Counterpart
Dim board_(9, 9) As System.Text.StringBuilder
Shared turn_ As System.Text.StringBuilder
Shared stoneA As System.Text.StringBuilder = New System.Text.StringBuilder("○")
Shared stoneB As System.Text.StringBuilder = New System.Text.StringBuilder("●")
Shared space As System.Text.StringBuilder = New System.Text.StringBuilder("")
Sub New()
' この呼び出しはデザイナーで必要です。
InitializeComponent()
' InitializeComponent() 呼び出しの後で初期化を追加します。
For i = 0 To 9
For j = 0 To 9
If i = 4 And j = 4 Then
board_(i, j) = stoneB
ElseIf i = 4 And j = 5 Then
board_(i, j) = stoneA
ElseIf i = 5 And j = 4 Then
board_(i, j) = stoneA
ElseIf i = 5 And j = 5 Then
board_(i, j) = stoneB
Else
board_(i, j) = space
End If
Next
Next
turn_ = stoneA
For i = 1 To 8
For j = 1 To 8
Dim temp As System.Text.StringBuilder = board_(i, j)
Dim c As PictureBox = TableLayoutPanel1.GetControlFromPosition(i - 1, j - 1)
Dim assm As Assembly = Assembly.GetExecutingAssembly()
Dim img = Nothing
If temp.Equals(stoneA) Then
Using stream As Stream = assm.GetManifestResourceStream(Assembly.GetExecutingAssembly().GetName().Name + ".shiro.png")
img = Image.FromStream(stream)
End Using
c.Image = img
ElseIf temp.Equals(stoneB) Then
Using stream As Stream = assm.GetManifestResourceStream(Assembly.GetExecutingAssembly().GetName().Name + ".kuro.png")
img = Image.FromStream(stream)
End Using
c.Image = img
Else
End If
Next
Next
cp_ = New Counterpart()
End Sub
Private Sub TableLayoutPanel1_Click(sender As Object, e As MouseEventArgs) Handles TableLayoutPanel1.Click
Dim xpos = Math.Floor(e.X / 45)
Dim ypos = Math.Floor(e.Y / 45)
Dim preboard(9, 9) As System.Text.StringBuilder
preboard = board_.Clone()
Dim preturn As System.Text.StringBuilder = turn_
board_ = reverse(board_, xpos + 1, ypos + 1, turn_)
If (preturn.Equals(turn_)) Then
Else
For i = 1 To 8
For j = 1 To 8
Dim temp As System.Text.StringBuilder = board_(i, j)
Dim temporg As System.Text.StringBuilder = preboard(i, j)
If temp.Equals(temporg) Then
Else
Dim c As PictureBox = TableLayoutPanel1.GetControlFromPosition(i - 1, j - 1)
Dim assm As Assembly = Assembly.GetExecutingAssembly()
Dim img = Nothing
If temp.Equals(stoneA) Then
Using stream As Stream = assm.GetManifestResourceStream(Assembly.GetExecutingAssembly().GetName().Name + ".shiro.png")
img = Image.FromStream(stream)
End Using
c.Image = img
Else
Using stream As Stream = assm.GetManifestResourceStream(Assembly.GetExecutingAssembly().GetName().Name + ".kuro.png")
img = Image.FromStream(stream)
End Using
c.Image = img
End If
End If
Next
Next
board_ = cpTurn(board_)
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If turn_.Equals(stoneA) Then
turn_ = stoneB
Else
turn_ = stoneA
End If
board_ = cpTurn(board_)
End Sub
Private Function reverse(board(,) As System.Text.StringBuilder, posX As Integer, posY As Integer, turn As System.Text.StringBuilder)
Dim reversibleList As List(Of List(Of Integer))
reversibleList = ReverseLogic.checkReversible(board, posX, posY, turn_)
If reversibleList.Count = 0 Then
If posX = -1 Then
MsgBox("Pass")
If turn_.Equals(stoneA) Then
turn_ = stoneB
Else
turn_ = stoneA
End If
Else
End If
Else
Dim posTemp As List(Of Integer) = New List(Of Integer)
board(posX, posY) = turn_
For Each posTemp In reversibleList
board(posTemp(0), posTemp(1)) = turn_
Next
If turn_.Equals(stoneA) Then
turn_ = stoneB
Else
turn_ = stoneA
End If
End If
Return board
End Function
Private Function cpTurn(board(,) As System.Text.StringBuilder)
Dim cpboard(9, 9) As System.Text.StringBuilder
cpboard = board.Clone()
Dim preboard(9, 9) As System.Text.StringBuilder
Dim pos As List(Of Integer) = cp_.randomPos(cpboard, turn_)
preboard = board.Clone()
Dim endflag = 0
If pos(0) = -1 Then
MsgBox("Pass")
endflag = endflag + 1
If turn_.Equals(stoneA) Then
turn_ = stoneB
Else
turn_ = stoneA
End If
Else
board = reverse(board, pos(0), pos(1), turn_)
End If
For i = 1 To 8
For j = 1 To 8
Dim temp As System.Text.StringBuilder = board(i, j)
Dim temporg As System.Text.StringBuilder = preboard(i, j)
If temp.Equals(temporg) Then
Else
Dim c As PictureBox = TableLayoutPanel1.GetControlFromPosition(i - 1, j - 1)
Dim assm As Assembly = Assembly.GetExecutingAssembly()
Dim img = Nothing
If temp.Equals(stoneA) Then
Using stream As Stream = assm.GetManifestResourceStream(Assembly.GetExecutingAssembly().GetName().Name + ".shiro.png")
img = Image.FromStream(stream)
End Using
c.Image = img
Else
Using stream As Stream = assm.GetManifestResourceStream(Assembly.GetExecutingAssembly().GetName().Name + ".kuro.png")
img = Image.FromStream(stream)
End Using
c.Image = img
End If
End If
Next
Next
Button1.Enabled = True
For i = 1 To 8
For j = 1 To 8
If board(i, j).Equals(space) Then
Dim reversibleList As List(Of List(Of Integer))
reversibleList = ReverseLogic.checkReversible(board, i, j, turn_)
If reversibleList.Count > 0 Then
Button1.Enabled = False
End If
End If
Next
Next
If Button1.Enabled = True Then
If endflag = 1 Then
Dim resultA = 0
Dim resultB = 0
For i = 1 To 8
For j = 1 To 8
If board(i, j).Equals(stoneA) Then
resultA = resultA + 1
ElseIf board(i, j).Equals(stoneB) Then
resultB = resultB + 1
End If
Next
Next
MsgBox("End: ○" & resultA & "●" & resultB)
End If
End If
Return board
End Function
End Class
GameBoard.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class GameBoard
Inherits System.Windows.Forms.Form
'フォームがコンポーネントの一覧をクリーンアップするために dispose をオーバーライドします。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Windows フォーム デザイナーで必要です。
Private components As System.ComponentModel.IContainer
'メモ: 以下のプロシージャは Windows フォーム デザイナーで必要です。
'Windows フォーム デザイナーを使用して変更できます。
'コード エディターを使って変更しないでください。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.PictureBox3 = New System.Windows.Forms.PictureBox()
Me.PictureBox4 = New System.Windows.Forms.PictureBox()
Me.PictureBox5 = New System.Windows.Forms.PictureBox()
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.PictureBox7 = New System.Windows.Forms.PictureBox()
Me.PictureBox8 = New System.Windows.Forms.PictureBox()
Me.PictureBox9 = New System.Windows.Forms.PictureBox()
Me.PictureBox10 = New System.Windows.Forms.PictureBox()
Me.PictureBox11 = New System.Windows.Forms.PictureBox()
Me.PictureBox12 = New System.Windows.Forms.PictureBox()
Me.PictureBox13 = New System.Windows.Forms.PictureBox()
Me.PictureBox14 = New System.Windows.Forms.PictureBox()
Me.PictureBox15 = New System.Windows.Forms.PictureBox()
Me.PictureBox16 = New System.Windows.Forms.PictureBox()
Me.PictureBox17 = New System.Windows.Forms.PictureBox()
Me.PictureBox18 = New System.Windows.Forms.PictureBox()
Me.PictureBox19 = New System.Windows.Forms.PictureBox()
Me.PictureBox20 = New System.Windows.Forms.PictureBox()
Me.PictureBox21 = New System.Windows.Forms.PictureBox()
Me.PictureBox22 = New System.Windows.Forms.PictureBox()
Me.PictureBox23 = New System.Windows.Forms.PictureBox()
Me.PictureBox24 = New System.Windows.Forms.PictureBox()
Me.PictureBox25 = New System.Windows.Forms.PictureBox()
Me.PictureBox26 = New System.Windows.Forms.PictureBox()
Me.PictureBox27 = New System.Windows.Forms.PictureBox()
Me.PictureBox28 = New System.Windows.Forms.PictureBox()
Me.PictureBox29 = New System.Windows.Forms.PictureBox()
Me.PictureBox30 = New System.Windows.Forms.PictureBox()
Me.PictureBox31 = New System.Windows.Forms.PictureBox()
Me.PictureBox32 = New System.Windows.Forms.PictureBox()
Me.PictureBox33 = New System.Windows.Forms.PictureBox()
Me.PictureBox34 = New System.Windows.Forms.PictureBox()
Me.PictureBox35 = New System.Windows.Forms.PictureBox()
Me.PictureBox36 = New System.Windows.Forms.PictureBox()
Me.PictureBox37 = New System.Windows.Forms.PictureBox()
Me.PictureBox38 = New System.Windows.Forms.PictureBox()
Me.PictureBox39 = New System.Windows.Forms.PictureBox()
Me.PictureBox40 = New System.Windows.Forms.PictureBox()
Me.PictureBox41 = New System.Windows.Forms.PictureBox()
Me.PictureBox42 = New System.Windows.Forms.PictureBox()
Me.PictureBox43 = New System.Windows.Forms.PictureBox()
Me.PictureBox44 = New System.Windows.Forms.PictureBox()
Me.PictureBox45 = New System.Windows.Forms.PictureBox()
Me.PictureBox46 = New System.Windows.Forms.PictureBox()
Me.PictureBox47 = New System.Windows.Forms.PictureBox()
Me.PictureBox48 = New System.Windows.Forms.PictureBox()
Me.PictureBox49 = New System.Windows.Forms.PictureBox()
Me.PictureBox50 = New System.Windows.Forms.PictureBox()
Me.PictureBox51 = New System.Windows.Forms.PictureBox()
Me.PictureBox52 = New System.Windows.Forms.PictureBox()
Me.PictureBox53 = New System.Windows.Forms.PictureBox()
Me.PictureBox54 = New System.Windows.Forms.PictureBox()
Me.PictureBox55 = New System.Windows.Forms.PictureBox()
Me.PictureBox56 = New System.Windows.Forms.PictureBox()
Me.PictureBox57 = New System.Windows.Forms.PictureBox()
Me.PictureBox58 = New System.Windows.Forms.PictureBox()
Me.PictureBox59 = New System.Windows.Forms.PictureBox()
Me.PictureBox60 = New System.Windows.Forms.PictureBox()
Me.PictureBox61 = New System.Windows.Forms.PictureBox()
Me.PictureBox62 = New System.Windows.Forms.PictureBox()
Me.PictureBox63 = New System.Windows.Forms.PictureBox()
Me.PictureBox64 = New System.Windows.Forms.PictureBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox26, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox28, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox29, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox30, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox31, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox32, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox33, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox34, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox35, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox36, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox37, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox38, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox39, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox40, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox41, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox42, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox43, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox44, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox45, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox46, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox47, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox48, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox49, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox50, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox51, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox52, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox53, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox54, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox55, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox56, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox57, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox58, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox59, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox60, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox61, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox62, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox63, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox64, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.TableLayoutPanel1.CellBorderStyle = System.Windows.Forms.TableLayoutPanelCellBorderStyle.InsetDouble
Me.TableLayoutPanel1.ColumnCount = 8
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox1, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox2, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox3, 2, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox4, 3, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox5, 4, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox6, 5, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox7, 6, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox8, 7, 0)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox9, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox10, 1, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox11, 2, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox12, 3, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox13, 4, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox14, 5, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox15, 6, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox16, 7, 1)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox17, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox18, 1, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox19, 2, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox20, 3, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox21, 4, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox22, 5, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox23, 6, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox24, 7, 2)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox25, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox26, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox27, 2, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox28, 3, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox29, 4, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox30, 5, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox31, 6, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox32, 7, 3)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox33, 0, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox34, 1, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox35, 2, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox36, 3, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox37, 4, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox38, 5, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox39, 6, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox40, 7, 4)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox41, 0, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox42, 1, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox43, 2, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox44, 3, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox45, 4, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox46, 5, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox47, 6, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox48, 7, 5)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox49, 0, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox50, 1, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox51, 2, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox52, 3, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox53, 4, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox54, 5, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox55, 6, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox56, 7, 6)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox57, 0, 7)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox58, 1, 7)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox59, 2, 7)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox60, 3, 7)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox61, 4, 7)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox62, 5, 7)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox63, 6, 7)
Me.TableLayoutPanel1.Controls.Add(Me.PictureBox64, 7, 7)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(15, 9)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 8
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 12.5!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(355, 355)
Me.TableLayoutPanel1.TabIndex = 0
'
'PictureBox1
'
Me.PictureBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox1.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox1.Enabled = False
Me.PictureBox1.Location = New System.Drawing.Point(6, 6)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(35, 35)
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox1.TabIndex = 64
Me.PictureBox1.TabStop = False
'
'PictureBox2
'
Me.PictureBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox2.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox2.Enabled = False
Me.PictureBox2.Location = New System.Drawing.Point(50, 6)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(35, 35)
Me.PictureBox2.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox2.TabIndex = 65
Me.PictureBox2.TabStop = False
'
'PictureBox3
'
Me.PictureBox3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox3.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox3.Enabled = False
Me.PictureBox3.Location = New System.Drawing.Point(94, 6)
Me.PictureBox3.Name = "PictureBox3"
Me.PictureBox3.Size = New System.Drawing.Size(35, 35)
Me.PictureBox3.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox3.TabIndex = 66
Me.PictureBox3.TabStop = False
'
'PictureBox4
'
Me.PictureBox4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox4.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox4.Enabled = False
Me.PictureBox4.Location = New System.Drawing.Point(138, 6)
Me.PictureBox4.Name = "PictureBox4"
Me.PictureBox4.Size = New System.Drawing.Size(35, 35)
Me.PictureBox4.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox4.TabIndex = 67
Me.PictureBox4.TabStop = False
'
'PictureBox5
'
Me.PictureBox5.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox5.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox5.Enabled = False
Me.PictureBox5.Location = New System.Drawing.Point(182, 6)
Me.PictureBox5.Name = "PictureBox5"
Me.PictureBox5.Size = New System.Drawing.Size(35, 35)
Me.PictureBox5.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox5.TabIndex = 68
Me.PictureBox5.TabStop = False
'
'PictureBox6
'
Me.PictureBox6.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox6.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox6.Enabled = False
Me.PictureBox6.Location = New System.Drawing.Point(226, 6)
Me.PictureBox6.Name = "PictureBox6"
Me.PictureBox6.Size = New System.Drawing.Size(35, 35)
Me.PictureBox6.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox6.TabIndex = 69
Me.PictureBox6.TabStop = False
'
'PictureBox7
'
Me.PictureBox7.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox7.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox7.Enabled = False
Me.PictureBox7.Location = New System.Drawing.Point(270, 6)
Me.PictureBox7.Name = "PictureBox7"
Me.PictureBox7.Size = New System.Drawing.Size(35, 35)
Me.PictureBox7.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox7.TabIndex = 70
Me.PictureBox7.TabStop = False
'
'PictureBox8
'
Me.PictureBox8.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox8.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox8.Enabled = False
Me.PictureBox8.Location = New System.Drawing.Point(314, 6)
Me.PictureBox8.Name = "PictureBox8"
Me.PictureBox8.Size = New System.Drawing.Size(35, 35)
Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox8.TabIndex = 71
Me.PictureBox8.TabStop = False
'
'PictureBox9
'
Me.PictureBox9.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox9.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox9.Enabled = False
Me.PictureBox9.Location = New System.Drawing.Point(6, 50)
Me.PictureBox9.Name = "PictureBox9"
Me.PictureBox9.Size = New System.Drawing.Size(35, 35)
Me.PictureBox9.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox9.TabIndex = 72
Me.PictureBox9.TabStop = False
'
'PictureBox10
'
Me.PictureBox10.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox10.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox10.Enabled = False
Me.PictureBox10.Location = New System.Drawing.Point(50, 50)
Me.PictureBox10.Name = "PictureBox10"
Me.PictureBox10.Size = New System.Drawing.Size(35, 35)
Me.PictureBox10.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox10.TabIndex = 73
Me.PictureBox10.TabStop = False
'
'PictureBox11
'
Me.PictureBox11.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox11.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox11.Enabled = False
Me.PictureBox11.Location = New System.Drawing.Point(94, 50)
Me.PictureBox11.Name = "PictureBox11"
Me.PictureBox11.Size = New System.Drawing.Size(35, 35)
Me.PictureBox11.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox11.TabIndex = 74
Me.PictureBox11.TabStop = False
'
'PictureBox12
'
Me.PictureBox12.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox12.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox12.Enabled = False
Me.PictureBox12.Location = New System.Drawing.Point(138, 50)
Me.PictureBox12.Name = "PictureBox12"
Me.PictureBox12.Size = New System.Drawing.Size(35, 35)
Me.PictureBox12.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox12.TabIndex = 75
Me.PictureBox12.TabStop = False
'
'PictureBox13
'
Me.PictureBox13.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox13.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox13.Enabled = False
Me.PictureBox13.Location = New System.Drawing.Point(182, 50)
Me.PictureBox13.Name = "PictureBox13"
Me.PictureBox13.Size = New System.Drawing.Size(35, 35)
Me.PictureBox13.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox13.TabIndex = 76
Me.PictureBox13.TabStop = False
'
'PictureBox14
'
Me.PictureBox14.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox14.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox14.Enabled = False
Me.PictureBox14.Location = New System.Drawing.Point(226, 50)
Me.PictureBox14.Name = "PictureBox14"
Me.PictureBox14.Size = New System.Drawing.Size(35, 35)
Me.PictureBox14.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox14.TabIndex = 77
Me.PictureBox14.TabStop = False
'
'PictureBox15
'
Me.PictureBox15.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox15.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox15.Enabled = False
Me.PictureBox15.Location = New System.Drawing.Point(270, 50)
Me.PictureBox15.Name = "PictureBox15"
Me.PictureBox15.Size = New System.Drawing.Size(35, 35)
Me.PictureBox15.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox15.TabIndex = 78
Me.PictureBox15.TabStop = False
'
'PictureBox16
'
Me.PictureBox16.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox16.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox16.Enabled = False
Me.PictureBox16.Location = New System.Drawing.Point(314, 50)
Me.PictureBox16.Name = "PictureBox16"
Me.PictureBox16.Size = New System.Drawing.Size(35, 35)
Me.PictureBox16.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox16.TabIndex = 79
Me.PictureBox16.TabStop = False
'
'PictureBox17
'
Me.PictureBox17.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox17.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox17.Enabled = False
Me.PictureBox17.Location = New System.Drawing.Point(6, 94)
Me.PictureBox17.Name = "PictureBox17"
Me.PictureBox17.Size = New System.Drawing.Size(35, 35)
Me.PictureBox17.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox17.TabIndex = 80
Me.PictureBox17.TabStop = False
'
'PictureBox18
'
Me.PictureBox18.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox18.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox18.Enabled = False
Me.PictureBox18.Location = New System.Drawing.Point(50, 94)
Me.PictureBox18.Name = "PictureBox18"
Me.PictureBox18.Size = New System.Drawing.Size(35, 35)
Me.PictureBox18.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox18.TabIndex = 81
Me.PictureBox18.TabStop = False
'
'PictureBox19
'
Me.PictureBox19.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox19.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox19.Enabled = False
Me.PictureBox19.Location = New System.Drawing.Point(94, 94)
Me.PictureBox19.Name = "PictureBox19"
Me.PictureBox19.Size = New System.Drawing.Size(35, 35)
Me.PictureBox19.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox19.TabIndex = 82
Me.PictureBox19.TabStop = False
'
'PictureBox20
'
Me.PictureBox20.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox20.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox20.Enabled = False
Me.PictureBox20.Location = New System.Drawing.Point(138, 94)
Me.PictureBox20.Name = "PictureBox20"
Me.PictureBox20.Size = New System.Drawing.Size(35, 35)
Me.PictureBox20.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox20.TabIndex = 83
Me.PictureBox20.TabStop = False
'
'PictureBox21
'
Me.PictureBox21.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox21.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox21.Enabled = False
Me.PictureBox21.Location = New System.Drawing.Point(182, 94)
Me.PictureBox21.Name = "PictureBox21"
Me.PictureBox21.Size = New System.Drawing.Size(35, 35)
Me.PictureBox21.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox21.TabIndex = 84
Me.PictureBox21.TabStop = False
'
'PictureBox22
'
Me.PictureBox22.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox22.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox22.Enabled = False
Me.PictureBox22.Location = New System.Drawing.Point(226, 94)
Me.PictureBox22.Name = "PictureBox22"
Me.PictureBox22.Size = New System.Drawing.Size(35, 35)
Me.PictureBox22.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox22.TabIndex = 85
Me.PictureBox22.TabStop = False
'
'PictureBox23
'
Me.PictureBox23.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox23.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox23.Enabled = False
Me.PictureBox23.Location = New System.Drawing.Point(270, 94)
Me.PictureBox23.Name = "PictureBox23"
Me.PictureBox23.Size = New System.Drawing.Size(35, 35)
Me.PictureBox23.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox23.TabIndex = 86
Me.PictureBox23.TabStop = False
'
'PictureBox24
'
Me.PictureBox24.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox24.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox24.Enabled = False
Me.PictureBox24.Location = New System.Drawing.Point(314, 94)
Me.PictureBox24.Name = "PictureBox24"
Me.PictureBox24.Size = New System.Drawing.Size(35, 35)
Me.PictureBox24.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox24.TabIndex = 87
Me.PictureBox24.TabStop = False
'
'PictureBox25
'
Me.PictureBox25.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox25.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox25.Enabled = False
Me.PictureBox25.Location = New System.Drawing.Point(6, 138)
Me.PictureBox25.Name = "PictureBox25"
Me.PictureBox25.Size = New System.Drawing.Size(35, 35)
Me.PictureBox25.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox25.TabIndex = 88
Me.PictureBox25.TabStop = False
'
'PictureBox26
'
Me.PictureBox26.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox26.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox26.Enabled = False
Me.PictureBox26.Location = New System.Drawing.Point(50, 138)
Me.PictureBox26.Name = "PictureBox26"
Me.PictureBox26.Size = New System.Drawing.Size(35, 35)
Me.PictureBox26.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox26.TabIndex = 89
Me.PictureBox26.TabStop = False
'
'PictureBox27
'
Me.PictureBox27.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox27.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox27.Enabled = False
Me.PictureBox27.Location = New System.Drawing.Point(94, 138)
Me.PictureBox27.Name = "PictureBox27"
Me.PictureBox27.Size = New System.Drawing.Size(35, 35)
Me.PictureBox27.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox27.TabIndex = 90
Me.PictureBox27.TabStop = False
'
'PictureBox28
'
Me.PictureBox28.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox28.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox28.Enabled = False
Me.PictureBox28.Location = New System.Drawing.Point(138, 138)
Me.PictureBox28.Name = "PictureBox28"
Me.PictureBox28.Size = New System.Drawing.Size(35, 35)
Me.PictureBox28.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox28.TabIndex = 91
Me.PictureBox28.TabStop = False
'
'PictureBox29
'
Me.PictureBox29.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox29.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox29.Enabled = False
Me.PictureBox29.Location = New System.Drawing.Point(182, 138)
Me.PictureBox29.Name = "PictureBox29"
Me.PictureBox29.Size = New System.Drawing.Size(35, 35)
Me.PictureBox29.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox29.TabIndex = 92
Me.PictureBox29.TabStop = False
'
'PictureBox30
'
Me.PictureBox30.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox30.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox30.Enabled = False
Me.PictureBox30.Location = New System.Drawing.Point(226, 138)
Me.PictureBox30.Name = "PictureBox30"
Me.PictureBox30.Size = New System.Drawing.Size(35, 35)
Me.PictureBox30.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox30.TabIndex = 93
Me.PictureBox30.TabStop = False
'
'PictureBox31
'
Me.PictureBox31.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox31.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox31.Enabled = False
Me.PictureBox31.Location = New System.Drawing.Point(270, 138)
Me.PictureBox31.Name = "PictureBox31"
Me.PictureBox31.Size = New System.Drawing.Size(35, 35)
Me.PictureBox31.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox31.TabIndex = 94
Me.PictureBox31.TabStop = False
'
'PictureBox32
'
Me.PictureBox32.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox32.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox32.Enabled = False
Me.PictureBox32.Location = New System.Drawing.Point(314, 138)
Me.PictureBox32.Name = "PictureBox32"
Me.PictureBox32.Size = New System.Drawing.Size(35, 35)
Me.PictureBox32.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox32.TabIndex = 95
Me.PictureBox32.TabStop = False
'
'PictureBox33
'
Me.PictureBox33.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox33.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox33.Enabled = False
Me.PictureBox33.Location = New System.Drawing.Point(6, 182)
Me.PictureBox33.Name = "PictureBox33"
Me.PictureBox33.Size = New System.Drawing.Size(35, 35)
Me.PictureBox33.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox33.TabIndex = 96
Me.PictureBox33.TabStop = False
'
'PictureBox34
'
Me.PictureBox34.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox34.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox34.Enabled = False
Me.PictureBox34.Location = New System.Drawing.Point(50, 182)
Me.PictureBox34.Name = "PictureBox34"
Me.PictureBox34.Size = New System.Drawing.Size(35, 35)
Me.PictureBox34.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox34.TabIndex = 97
Me.PictureBox34.TabStop = False
'
'PictureBox35
'
Me.PictureBox35.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox35.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox35.Enabled = False
Me.PictureBox35.Location = New System.Drawing.Point(94, 182)
Me.PictureBox35.Name = "PictureBox35"
Me.PictureBox35.Size = New System.Drawing.Size(35, 35)
Me.PictureBox35.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox35.TabIndex = 98
Me.PictureBox35.TabStop = False
'
'PictureBox36
'
Me.PictureBox36.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox36.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox36.Enabled = False
Me.PictureBox36.Location = New System.Drawing.Point(138, 182)
Me.PictureBox36.Name = "PictureBox36"
Me.PictureBox36.Size = New System.Drawing.Size(35, 35)
Me.PictureBox36.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox36.TabIndex = 99
Me.PictureBox36.TabStop = False
'
'PictureBox37
'
Me.PictureBox37.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox37.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox37.Enabled = False
Me.PictureBox37.Location = New System.Drawing.Point(182, 182)
Me.PictureBox37.Name = "PictureBox37"
Me.PictureBox37.Size = New System.Drawing.Size(35, 35)
Me.PictureBox37.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox37.TabIndex = 100
Me.PictureBox37.TabStop = False
'
'PictureBox38
'
Me.PictureBox38.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox38.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox38.Enabled = False
Me.PictureBox38.Location = New System.Drawing.Point(226, 182)
Me.PictureBox38.Name = "PictureBox38"
Me.PictureBox38.Size = New System.Drawing.Size(35, 35)
Me.PictureBox38.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox38.TabIndex = 101
Me.PictureBox38.TabStop = False
'
'PictureBox39
'
Me.PictureBox39.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox39.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox39.Enabled = False
Me.PictureBox39.Location = New System.Drawing.Point(270, 182)
Me.PictureBox39.Name = "PictureBox39"
Me.PictureBox39.Size = New System.Drawing.Size(35, 35)
Me.PictureBox39.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox39.TabIndex = 102
Me.PictureBox39.TabStop = False
'
'PictureBox40
'
Me.PictureBox40.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox40.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox40.Enabled = False
Me.PictureBox40.Location = New System.Drawing.Point(314, 182)
Me.PictureBox40.Name = "PictureBox40"
Me.PictureBox40.Size = New System.Drawing.Size(35, 35)
Me.PictureBox40.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox40.TabIndex = 103
Me.PictureBox40.TabStop = False
'
'PictureBox41
'
Me.PictureBox41.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox41.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox41.Enabled = False
Me.PictureBox41.Location = New System.Drawing.Point(6, 226)
Me.PictureBox41.Name = "PictureBox41"
Me.PictureBox41.Size = New System.Drawing.Size(35, 35)
Me.PictureBox41.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox41.TabIndex = 104
Me.PictureBox41.TabStop = False
'
'PictureBox42
'
Me.PictureBox42.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox42.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox42.Enabled = False
Me.PictureBox42.Location = New System.Drawing.Point(50, 226)
Me.PictureBox42.Name = "PictureBox42"
Me.PictureBox42.Size = New System.Drawing.Size(35, 35)
Me.PictureBox42.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox42.TabIndex = 105
Me.PictureBox42.TabStop = False
'
'PictureBox43
'
Me.PictureBox43.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox43.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox43.Enabled = False
Me.PictureBox43.Location = New System.Drawing.Point(94, 226)
Me.PictureBox43.Name = "PictureBox43"
Me.PictureBox43.Size = New System.Drawing.Size(35, 35)
Me.PictureBox43.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox43.TabIndex = 106
Me.PictureBox43.TabStop = False
'
'PictureBox44
'
Me.PictureBox44.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox44.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox44.Enabled = False
Me.PictureBox44.Location = New System.Drawing.Point(138, 226)
Me.PictureBox44.Name = "PictureBox44"
Me.PictureBox44.Size = New System.Drawing.Size(35, 35)
Me.PictureBox44.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox44.TabIndex = 107
Me.PictureBox44.TabStop = False
'
'PictureBox45
'
Me.PictureBox45.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox45.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox45.Enabled = False
Me.PictureBox45.Location = New System.Drawing.Point(182, 226)
Me.PictureBox45.Name = "PictureBox45"
Me.PictureBox45.Size = New System.Drawing.Size(35, 35)
Me.PictureBox45.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox45.TabIndex = 108
Me.PictureBox45.TabStop = False
'
'PictureBox46
'
Me.PictureBox46.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox46.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox46.Enabled = False
Me.PictureBox46.Location = New System.Drawing.Point(226, 226)
Me.PictureBox46.Name = "PictureBox46"
Me.PictureBox46.Size = New System.Drawing.Size(35, 35)
Me.PictureBox46.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox46.TabIndex = 109
Me.PictureBox46.TabStop = False
'
'PictureBox47
'
Me.PictureBox47.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox47.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox47.Enabled = False
Me.PictureBox47.Location = New System.Drawing.Point(270, 226)
Me.PictureBox47.Name = "PictureBox47"
Me.PictureBox47.Size = New System.Drawing.Size(35, 35)
Me.PictureBox47.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox47.TabIndex = 110
Me.PictureBox47.TabStop = False
'
'PictureBox48
'
Me.PictureBox48.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox48.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox48.Enabled = False
Me.PictureBox48.Location = New System.Drawing.Point(314, 226)
Me.PictureBox48.Name = "PictureBox48"
Me.PictureBox48.Size = New System.Drawing.Size(35, 35)
Me.PictureBox48.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox48.TabIndex = 111
Me.PictureBox48.TabStop = False
'
'PictureBox49
'
Me.PictureBox49.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox49.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox49.Enabled = False
Me.PictureBox49.Location = New System.Drawing.Point(6, 270)
Me.PictureBox49.Name = "PictureBox49"
Me.PictureBox49.Size = New System.Drawing.Size(35, 35)
Me.PictureBox49.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox49.TabIndex = 112
Me.PictureBox49.TabStop = False
'
'PictureBox50
'
Me.PictureBox50.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox50.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox50.Enabled = False
Me.PictureBox50.Location = New System.Drawing.Point(50, 270)
Me.PictureBox50.Name = "PictureBox50"
Me.PictureBox50.Size = New System.Drawing.Size(35, 35)
Me.PictureBox50.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox50.TabIndex = 113
Me.PictureBox50.TabStop = False
'
'PictureBox51
'
Me.PictureBox51.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox51.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox51.Enabled = False
Me.PictureBox51.Location = New System.Drawing.Point(94, 270)
Me.PictureBox51.Name = "PictureBox51"
Me.PictureBox51.Size = New System.Drawing.Size(35, 35)
Me.PictureBox51.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox51.TabIndex = 114
Me.PictureBox51.TabStop = False
'
'PictureBox52
'
Me.PictureBox52.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox52.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox52.Enabled = False
Me.PictureBox52.Location = New System.Drawing.Point(138, 270)
Me.PictureBox52.Name = "PictureBox52"
Me.PictureBox52.Size = New System.Drawing.Size(35, 35)
Me.PictureBox52.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox52.TabIndex = 115
Me.PictureBox52.TabStop = False
'
'PictureBox53
'
Me.PictureBox53.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox53.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox53.Enabled = False
Me.PictureBox53.Location = New System.Drawing.Point(182, 270)
Me.PictureBox53.Name = "PictureBox53"
Me.PictureBox53.Size = New System.Drawing.Size(35, 35)
Me.PictureBox53.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox53.TabIndex = 116
Me.PictureBox53.TabStop = False
'
'PictureBox54
'
Me.PictureBox54.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox54.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox54.Enabled = False
Me.PictureBox54.Location = New System.Drawing.Point(226, 270)
Me.PictureBox54.Name = "PictureBox54"
Me.PictureBox54.Size = New System.Drawing.Size(35, 35)
Me.PictureBox54.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox54.TabIndex = 117
Me.PictureBox54.TabStop = False
'
'PictureBox55
'
Me.PictureBox55.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox55.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox55.Enabled = False
Me.PictureBox55.Location = New System.Drawing.Point(270, 270)
Me.PictureBox55.Name = "PictureBox55"
Me.PictureBox55.Size = New System.Drawing.Size(35, 35)
Me.PictureBox55.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox55.TabIndex = 118
Me.PictureBox55.TabStop = False
'
'PictureBox56
'
Me.PictureBox56.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox56.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox56.Enabled = False
Me.PictureBox56.Location = New System.Drawing.Point(314, 270)
Me.PictureBox56.Name = "PictureBox56"
Me.PictureBox56.Size = New System.Drawing.Size(35, 35)
Me.PictureBox56.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox56.TabIndex = 119
Me.PictureBox56.TabStop = False
'
'PictureBox57
'
Me.PictureBox57.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox57.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox57.Enabled = False
Me.PictureBox57.Location = New System.Drawing.Point(6, 314)
Me.PictureBox57.Name = "PictureBox57"
Me.PictureBox57.Size = New System.Drawing.Size(35, 35)
Me.PictureBox57.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox57.TabIndex = 120
Me.PictureBox57.TabStop = False
'
'PictureBox58
'
Me.PictureBox58.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox58.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox58.Enabled = False
Me.PictureBox58.Location = New System.Drawing.Point(50, 314)
Me.PictureBox58.Name = "PictureBox58"
Me.PictureBox58.Size = New System.Drawing.Size(35, 35)
Me.PictureBox58.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox58.TabIndex = 121
Me.PictureBox58.TabStop = False
'
'PictureBox59
'
Me.PictureBox59.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox59.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox59.Enabled = False
Me.PictureBox59.Location = New System.Drawing.Point(94, 314)
Me.PictureBox59.Name = "PictureBox59"
Me.PictureBox59.Size = New System.Drawing.Size(35, 35)
Me.PictureBox59.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox59.TabIndex = 122
Me.PictureBox59.TabStop = False
'
'PictureBox60
'
Me.PictureBox60.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox60.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox60.Enabled = False
Me.PictureBox60.Location = New System.Drawing.Point(138, 314)
Me.PictureBox60.Name = "PictureBox60"
Me.PictureBox60.Size = New System.Drawing.Size(35, 35)
Me.PictureBox60.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox60.TabIndex = 123
Me.PictureBox60.TabStop = False
'
'PictureBox61
'
Me.PictureBox61.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox61.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox61.Enabled = False
Me.PictureBox61.Location = New System.Drawing.Point(182, 314)
Me.PictureBox61.Name = "PictureBox61"
Me.PictureBox61.Size = New System.Drawing.Size(35, 35)
Me.PictureBox61.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox61.TabIndex = 124
Me.PictureBox61.TabStop = False
'
'PictureBox62
'
Me.PictureBox62.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox62.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox62.Enabled = False
Me.PictureBox62.Location = New System.Drawing.Point(226, 314)
Me.PictureBox62.Name = "PictureBox62"
Me.PictureBox62.Size = New System.Drawing.Size(35, 35)
Me.PictureBox62.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox62.TabIndex = 125
Me.PictureBox62.TabStop = False
'
'PictureBox63
'
Me.PictureBox63.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox63.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox63.Enabled = False
Me.PictureBox63.Location = New System.Drawing.Point(270, 314)
Me.PictureBox63.Name = "PictureBox63"
Me.PictureBox63.Size = New System.Drawing.Size(35, 35)
Me.PictureBox63.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox63.TabIndex = 126
Me.PictureBox63.TabStop = False
'
'PictureBox64
'
Me.PictureBox64.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.PictureBox64.BackColor = System.Drawing.SystemColors.MenuHighlight
Me.PictureBox64.Enabled = False
Me.PictureBox64.Location = New System.Drawing.Point(314, 314)
Me.PictureBox64.Name = "PictureBox64"
Me.PictureBox64.Size = New System.Drawing.Size(35, 35)
Me.PictureBox64.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
Me.PictureBox64.TabIndex = 127
Me.PictureBox64.TabStop = False
'
'Button1
'
Me.Button1.Enabled = False
Me.Button1.Font = New System.Drawing.Font("MS UI Gothic", 10.86792!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(128, Byte))
Me.Button1.Location = New System.Drawing.Point(268, 373)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(100, 30)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Pass/End"
Me.Button1.UseVisualStyleBackColor = True
'
'GameBoard
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(384, 409)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Name = "GameBoard"
Me.Text = "Othello(Reverse)"
Me.TableLayoutPanel1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox16, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox17, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox18, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox19, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox20, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox21, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox22, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox23, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox25, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox26, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox27, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox28, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox29, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox30, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox31, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox32, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox33, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox34, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox35, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox36, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox37, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox38, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox39, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox40, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox41, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox42, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox43, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox44, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox45, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox46, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox47, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox48, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox49, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox50, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox51, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox52, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox53, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox54, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox55, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox56, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox57, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox58, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox59, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox60, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox61, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox62, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox63, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox64, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents PictureBox3 As PictureBox
Friend WithEvents PictureBox4 As PictureBox
Friend WithEvents PictureBox5 As PictureBox
Friend WithEvents PictureBox6 As PictureBox
Friend WithEvents PictureBox7 As PictureBox
Friend WithEvents PictureBox8 As PictureBox
Friend WithEvents PictureBox9 As PictureBox
Friend WithEvents PictureBox10 As PictureBox
Friend WithEvents PictureBox11 As PictureBox
Friend WithEvents PictureBox12 As PictureBox
Friend WithEvents PictureBox13 As PictureBox
Friend WithEvents PictureBox14 As PictureBox
Friend WithEvents PictureBox15 As PictureBox
Friend WithEvents PictureBox16 As PictureBox
Friend WithEvents PictureBox17 As PictureBox
Friend WithEvents PictureBox18 As PictureBox
Friend WithEvents PictureBox19 As PictureBox
Friend WithEvents PictureBox20 As PictureBox
Friend WithEvents PictureBox21 As PictureBox
Friend WithEvents PictureBox22 As PictureBox
Friend WithEvents PictureBox23 As PictureBox
Friend WithEvents PictureBox24 As PictureBox
Friend WithEvents PictureBox25 As PictureBox
Friend WithEvents PictureBox26 As PictureBox
Friend WithEvents PictureBox27 As PictureBox
Friend WithEvents PictureBox28 As PictureBox
Friend WithEvents PictureBox29 As PictureBox
Friend WithEvents PictureBox30 As PictureBox
Friend WithEvents PictureBox31 As PictureBox
Friend WithEvents PictureBox32 As PictureBox
Friend WithEvents PictureBox33 As PictureBox
Friend WithEvents PictureBox34 As PictureBox
Friend WithEvents PictureBox35 As PictureBox
Friend WithEvents PictureBox36 As PictureBox
Friend WithEvents PictureBox37 As PictureBox
Friend WithEvents PictureBox38 As PictureBox
Friend WithEvents PictureBox39 As PictureBox
Friend WithEvents PictureBox40 As PictureBox
Friend WithEvents PictureBox41 As PictureBox
Friend WithEvents PictureBox42 As PictureBox
Friend WithEvents PictureBox43 As PictureBox
Friend WithEvents PictureBox44 As PictureBox
Friend WithEvents PictureBox45 As PictureBox
Friend WithEvents PictureBox46 As PictureBox
Friend WithEvents PictureBox47 As PictureBox
Friend WithEvents PictureBox48 As PictureBox
Friend WithEvents PictureBox49 As PictureBox
Friend WithEvents PictureBox50 As PictureBox
Friend WithEvents PictureBox51 As PictureBox
Friend WithEvents PictureBox52 As PictureBox
Friend WithEvents PictureBox53 As PictureBox
Friend WithEvents PictureBox54 As PictureBox
Friend WithEvents PictureBox55 As PictureBox
Friend WithEvents PictureBox56 As PictureBox
Friend WithEvents PictureBox57 As PictureBox
Friend WithEvents PictureBox58 As PictureBox
Friend WithEvents PictureBox59 As PictureBox
Friend WithEvents PictureBox60 As PictureBox
Friend WithEvents PictureBox61 As PictureBox
Friend WithEvents PictureBox62 As PictureBox
Friend WithEvents PictureBox63 As PictureBox
Friend WithEvents PictureBox64 As PictureBox
Friend WithEvents Button1 As Button
End Class
ReverseLogic.vb
Public Class ReverseLogic
Shared stoneA As System.Text.StringBuilder = New System.Text.StringBuilder("○")
Shared stoneB As System.Text.StringBuilder = New System.Text.StringBuilder("●")
Shared reversingStone As System.Text.StringBuilder
Shared reversedStone As System.Text.StringBuilder
Shared tempList As List(Of List(Of Integer))
Public Shared Function checkReversible(board(,) As System.Text.StringBuilder, stoneposX As Integer, stoneposY As Integer, turn As System.Text.StringBuilder)
tempList = New List(Of List(Of Integer))
If turn.Equals(stoneA) Then
reversingStone = stoneA
reversedStone = stoneB
Else
reversingStone = stoneB
reversedStone = stoneA
End If
Dim reversibleList As List(Of List(Of Integer)) = New List(Of List(Of Integer))({})
If board(stoneposX, stoneposY).Equals(New System.Text.StringBuilder("")) Then
Dim numlist As List(Of Integer) = New List(Of Integer)({-1, 0, 1})
For Each i In numlist
For Each j In numlist
If board(stoneposX + i, stoneposY + j).Equals(reversedStone) Then
' Dim tempList As List(Of List(Of Integer))
tempList.Clear()
tempList = checkLine(i, j, New List(Of Integer)({i, j}), stoneposX, stoneposY, board, reversingStone, reversedStone)
reversibleList.AddRange(tempList)
End If
Next
Next
Else
End If
Return reversibleList
End Function
Private Shared Function checkLine(i As Integer, j As Integer, inc As List(Of Integer), stoneposX As Integer, stoneposY As Integer, board(,) As System.Text.StringBuilder, reversingSt As System.Text.StringBuilder, reversedSt As System.Text.StringBuilder)
Dim tempList As List(Of List(Of Integer)) = New List(Of List(Of Integer))({})
Dim Temp As List(Of List(Of Integer)) = New List(Of List(Of Integer))({})
For k = 1 To 8
stoneposX = stoneposX + i
stoneposY = stoneposY + j
If board(stoneposX, stoneposY).Equals(New System.Text.StringBuilder("")) Then
tempList.Clear()
Exit For
ElseIf board(stoneposX, stoneposY).Equals(reversingSt) Then
tempList.Add(New List(Of Integer)({stoneposX, stoneposY}))
Exit For
ElseIf board(stoneposX, stoneposY).Equals(reversedSt) Then
tempList.Add(New List(Of Integer)({stoneposX, stoneposY}))
End If
Next
Return tempList
End Function
End ClassCounterpart.vb
Public Class Counterpart
Dim alList_ As List(Of List(Of Integer)) = New List(Of List(Of Integer))({})
Sub New()
Dim tempList As List(Of Integer) = New List(Of Integer)({1, 2, 3, 4, 5, 6, 7, 8})
Dim rowList As List(Of Integer) = New List(Of Integer)({})
Dim columnList As List(Of Integer) = New List(Of Integer)({})
Dim tempNum As Integer
Dim rnd As New Random
For Each i In tempList
tempNum = rnd.Next(0, 2)
If tempNum = 0 Then
rowList.Add(i)
Else
rowList.Insert(0, i)
End If
Next
For Each i In tempList
tempNum = rnd.Next(0, 2)
If tempNum = 0 Then
columnList.Add(i)
Else
columnList.Insert(0, i)
End If
Next
For i = 0 To 7
For j = 0 To 7
alList_.Add(New List(Of Integer)({rowList(i), columnList(j)}))
Next
Next
End Sub
Public Function randomPos(board(,) As System.Text.StringBuilder, turn As System.Text.StringBuilder)
Dim tempList As List(Of List(Of Integer)) = New List(Of List(Of Integer))({})
'ボード上で空いているところを探す。
For Each pos In alList_
If board(pos(0), pos(1)).Equals(New System.Text.StringBuilder("")) Then
Else
tempList.Add(pos)
End If
Next
For Each pos In tempList
alList_.Remove(pos)
Next
Dim returnpos As List(Of Integer) = New List(Of Integer)
Dim reversibleList As List(Of List(Of Integer)) = New List(Of List(Of Integer))({})
If alList_.Count = 0 Then
returnpos = New List(Of Integer)({-1, -1})
Else
For Each pos In alList_
reversibleList.Clear()
reversibleList = ReverseLogic.checkReversible(board, pos(0), pos(1), turn)
If reversibleList.Count > 0 Then
returnpos = pos
alList_.Remove(pos)
Exit For
End If
returnpos = New List(Of Integer)({-1, -1})
Next
End If
Return returnpos
End Function
End Classkuro.png と shiro.png
