用VB2005编一个五子棋程序 有异常不能编译完成

用VB2005编一个五子棋程序 有错误不能编译完成
问题出现在 第三个模块,



-------------------------这是第三个模块   whowin-----------------------------------------
'重新声明对方获胜表
Dim pwTab(10, 10, 192) As Boolean
Dim cwTab(10, 10, 192) As Boolean

'重新声明棋盘方块状态
Dim myBoard(10, 10) As Boolean

'重新声明双方使用棋数
Dim chessNum(2) As Integer

'重新声明可能获胜组合
Dim win(2, 192) As Integer

'初始化游戏
Public Sub gameInit()
    '设定双方获胜表
    Dim count As Integer
    count = 0
    '水平方向
    For i = 0 To 9
        For j = 0 To 5
            For k = 0 To 4
                pwTab(i, j + k, count) = True
                cwTab(i, j + k, count) = True
            Next
        count = count + 1
        Next
    Next
    '垂直方向
    For i = 0 To 9
        For j = 0 To 5
            For k = 0 To 4
                pwTab(j + k, i, count) = True
                cwTab(j + k, i, count) = True
            Next
        count = count + 1
        Next
    Next
    '正对角线方向
    For i = 0 To 5
        For j = 0 To 5
            For k = 0 To 4
                pwTab(j + k, i + k, count) = True
                cwTab(j + k, i + k, count) = True
            Next
        count = count + 1
        Next
    Next
    '反对角
    For i = 0 To 5
        For j = 9 To 4 Step -1
            For k = 0 To 4
                pwTab(j - k, i + k, count) = True
                cwTab(j - k, i + k, count) = True