VB井字過三關問題!!

1.
Dim Row, Col As Integer
應該為
Dim Row As Integer, Col As Integer

2. 好大問題
btn = CType(sender, Button)
t = btn.Tag
Row = Int((t + 1) / 3)
Col = Int((t + 1) / 3)

Row 同 Col 值一定是一樣，怎能去到 (0,1) (1,0) (1,2) 等 cell﹖
每個 Button 的 Tag 值是甚麽﹖

建議每個 Button Tag 定為 01, 11, 12, 10, 11, 12, 20, 21, 22
Dim tag As String = btn.Tag
Row = Left(tag, 1)
Col = Right(tag, 1)

3.
Check Win 有橫三，直三，斜二，六種機會，你只檢查了四種。