用VB实现井字游戏

Sub picWells_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lngGetWells_X As Long, lngGetWells_Y As Long
    Dim blnWellsNotFull As Boolean
    If Not blnGameStart Then Exit Sub
    lngGetWells_X = Int(Y / (Me.picWells.Height / 3)) + 1
    lngGetWells_Y = Int(X / (Me.picWells.Width / 3)) + 1
    If usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Value = 0 Then
       usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Value = 1
       Me.picWells.PaintPicture Me.imgChequer(MAN).Picture, _
                                usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_X, _
                                usrWells(intWellsIndex(lngGetWells_X, lngGetWells_Y)).Wells_Y, _
                                Me.picWells.Width / 3, Me.picWells.Height / 3
       If funPlayerWinIF(MAN) Then
          Beep
          MsgBox "恭喜，您胜利了！", , "BS井字游戏"
          lngPlayerScore = lngPlayerScore + 100
          Call subScreenRefresh
          blnGameStart = False
       Else
          blnPlayerTurn = False
          For i = 1 To 9
              If usrWells(i).Wells_Value = 0 Then blnWellsNotFull = True
          Next i
          If blnWellsNotFull Then
             Call subComputerDoing
          Else
             Beep
             MsgBox "和局！", , "BS井字游戏"
             blnGameStart = False
       &nb