form1.frm

a interesting and useful game which you can use quickly meanwhile you can enjoy yourself

Private Sub I0211_Click()
If Q(2, 11) = "" Then
     If QS = "W" Then
        I0211.Picture = w.Picture
        QS = "B"
        Q(2, 11) = "W"
     ElseIf QS = "B" Then
        I0211.Picture = b.Picture
        QS = "W"
        Q(2, 11) = "B"
     End If
     Z = GameOver(Q(2, 11))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0212_Click()
If Q(2, 12) = "" Then
     If QS = "W" Then
        I0212.Picture = w.Picture
        QS = "B"
        Q(2, 12) = "W"
     ElseIf QS = "B" Then
        I0212.Picture = b.Picture
        QS = "W"
        Q(2, 12) = "B"
     End If
     Z = GameOver(Q(2, 12))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0213_Click()
If Q(2, 13) = "" Then
     If QS = "W" Then
        I0213.Picture = w.Picture
        QS = "B"
        Q(2, 13) = "W"
     ElseIf QS = "B" Then
        I0213.Picture = b.Picture
        QS = "W"
        Q(2, 13) = "B"
     End If
     Z = GameOver(Q(2, 13))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0214_Click()
If Q(2, 14) = "" Then
     If QS = "W" Then
        I0214.Picture = w.Picture
        QS = "B"
        Q(2, 14) = "W"
     ElseIf QS = "B" Then
        I0214.Picture = b.Picture
        QS = "W"
        Q(2, 14) = "B"
     End If
     Z = GameOver(Q(2, 14))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0215_Click()
If Q(2, 15) = "" Then
     If QS = "W" Then
        I0215.Picture = w.Picture
        QS = "B"
        Q(2, 15) = "W"
     ElseIf QS = "B" Then
        I0215.Picture = b.Picture
        QS = "W"
        Q(2, 15) = "B"
     End If
     Z = GameOver(Q(2, 15))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0301_Click()
If Q(3, 1) = "" Then
     If QS = "W" Then
        I0301.Picture = w.Picture
        QS = "B"
        Q(3, 1) = "W"
     ElseIf QS = "B" Then
        I0301.Picture = b.Picture
        QS = "W"
        Q(3, 1) = "B"
     End If
     Z = GameOver(Q(3, 1))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0302_Click()
If Q(3, 2) = "" Then
     If QS = "W" Then
        I0302.Picture = w.Picture
        QS = "B"
        Q(3, 2) = "W"
     ElseIf QS = "B" Then
        I0302.Picture = b.Picture
        QS = "W"
        Q(3, 2) = "B"
     End If
     Z = GameOver(Q(3, 2))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0303_Click()
If Q(3, 3) = "" Then
     If QS = "W" Then
        I0303.Picture = w.Picture
        QS = "B"
        Q(3, 3) = "W"
     ElseIf QS = "B" Then
        I0303.Picture = b.Picture
        QS = "W"
        Q(3, 3) = "B"
     End If
     Z = GameOver(Q(3, 3))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0304_Click()
If Q(3, 4) = "" Then
     If QS = "W" Then
        I0304.Picture = w.Picture
        QS = "B"
        Q(3, 4) = "W"
     ElseIf QS = "B" Then
        I0304.Picture = b.Picture
        QS = "W"
        Q(3, 4) = "B"
     End If
     Z = GameOver(Q(3, 4))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0305_Click()
If Q(3, 5) = "" Then
     If QS = "W" Then
        I0305.Picture = w.Picture
        QS = "B"
        Q(3, 5) = "W"
     ElseIf QS = "B" Then
        I0305.Picture = b.Picture
        QS = "W"
        Q(3, 5) = "B"
     End If
     Z = GameOver(Q(3, 5))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0306_Click()
If Q(3, 6) = "" Then
     If QS = "W" Then
        I0306.Picture = w.Picture
        QS = "B"
        Q(3, 6) = "W"
     ElseIf QS = "B" Then
        I0306.Picture = b.Picture
        QS = "W"
        Q(3, 6) = "B"
     End If
     Z = GameOver(Q(3, 6))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0307_Click()
If Q(3, 7) = "" Then
     If QS = "W" Then
        I0307.Picture = w.Picture
        QS = "B"
        Q(3, 7) = "W"
     ElseIf QS = "B" Then
        I0307.Picture = b.Picture
        QS = "W"
        Q(3, 7) = "B"
     End If
     Z = GameOver(Q(3, 7))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0308_Click()
If Q(3, 8) = "" Then
     If QS = "W" Then
        I0308.Picture = w.Picture
        QS = "B"
        Q(3, 8) = "W"
     ElseIf QS = "B" Then
        I0308.Picture = b.Picture
        QS = "W"
        Q(3, 8) = "B"
     End If
     Z = GameOver(Q(3, 8))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0309_Click()
If Q(3, 9) = "" Then
     If QS = "W" Then
        I0309.Picture = w.Picture
        QS = "B"
        Q(3, 9) = "W"
     ElseIf QS = "B" Then
        I0309.Picture = b.Picture
        QS = "W"
        Q(3, 9) = "B"
     End If
     Z = GameOver(Q(3, 9))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0310_Click()
If Q(3, 10) = "" Then
     If QS = "W" Then
        I0310.Picture = w.Picture
        QS = "B"
        Q(3, 10) = "W"
     ElseIf QS = "B" Then
        I0310.Picture = b.Picture
        QS = "W"
        Q(3, 10) = "B"
     End If
     Z = GameOver(Q(3, 10))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0311_Click()
If Q(3, 11) = "" Then
     If QS = "W" Then
        I0311.Picture = w.Picture
        QS = "B"
        Q(3, 11) = "W"
     ElseIf QS = "B" Then
        I0311.Picture = b.Picture
        QS = "W"
        Q(3, 11) = "B"
     End If
     Z = GameOver(Q(3, 11))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0312_Click()
If Q(3, 12) = "" Then
     If QS = "W" Then
        I0312.Picture = w.Picture
        QS = "B"
        Q(3, 12) = "W"
     ElseIf QS = "B" Then
        I0312.Picture = b.Picture
        QS = "W"
        Q(3, 12) = "B"
     End If
     Z = GameOver(Q(3, 12))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0313_Click()
If Q(3, 13) = "" Then
     If QS = "W" Then
        I0313.Picture = w.Picture
        QS = "B"
        Q(3, 13) = "W"
     ElseIf QS = "B" Then
        I0313.Picture = b.Picture
        QS = "W"
        Q(3, 13) = "B"
     End If
     Z = GameOver(Q(3, 13))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0314_Click()
If Q(3, 14) = "" Then
     If QS = "W" Then
        I0314.Picture = w.Picture
        QS = "B"
        Q(3, 14) = "W"
     ElseIf QS = "B" Then
        I0314.Picture = b.Picture
        QS = "W"
        Q(3, 14) = "B"
     End If
     Z = GameOver(Q(3, 14))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0315_Click()
If Q(3, 15) = "" Then
     If QS = "W" Then
        I0315.Picture = w.Picture
        QS = "B"
        Q(3, 15) = "W"
     ElseIf QS = "B" Then
        I0315.Picture = b.Picture
        QS = "W"
        Q(3, 15) = "B"
     End If
     Z = GameOver(Q(3, 15))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0401_Click()
If Q(4, 1) = "" Then
     If QS = "W" Then
        I0401.Picture = w.Picture
        QS = "B"
        Q(4, 1) = "W"
     ElseIf QS = "B" Then
        I0401.Picture = b.Picture
        QS = "W"
        Q(4, 1) = "B"
     End If
     Z = GameOver(Q(4, 1))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0402_Click()
If Q(4, 2) = "" Then
     If QS = "W" Then
        I0402.Picture = w.Picture
        QS = "B"
        Q(4, 2) = "W"
     ElseIf QS = "B" Then
        I0402.Picture = b.Picture
        QS = "W"
        Q(4, 2) = "B"
     End If
     Z = GameOver(Q(4, 2))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0403_Click()
If Q(4, 3) = "" Then
     If QS = "W" Then
        I0403.Picture = w.Picture
        QS = "B"
        Q(4, 3) = "W"
     ElseIf QS = "B" Then
        I0403.Picture = b.Picture
        QS = "W"
        Q(4, 3) = "B"
     End If
     Z = GameOver(Q(4, 3))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0404_Click()
If Q(4, 4) = "" Then
     If QS = "W" Then
        I0404.Picture = w.Picture
        QS = "B"
        Q(4, 4) = "W"
     ElseIf