３×３の９マスのセルで、○×ゲームをする場合の、データ格納＆勝ち負け判定を行う
クラス Cell9 を作ってみたぞ。
-----------------------
その１

Public Class Cell9
Dim mCell(3, 3) As String

Public Sub cell9()
Call Clear()
End Sub

Public Sub Clear()
Dim i As Integer
Dim j As Integer

For i = 1 To 3 Step 1
For j = 1 To 3 Step 1
mCell(i, j) = ""
Next j
Next i

End Sub

Public Sub Set_Circle(ByVal intX As Integer, ByVal intY As Integer)
mCell(intX, intY) = "○"
End Sub

Public Sub Set_Cross(ByVal intX As Integer, ByVal intY As Integer)
mCell(intX, intY) = "×"
End Sub