五子棋两个控件之一fiveclient

Option Explicit
'整个棋格的大小为15x15
Dim mGrid(1 To 15, 1 To 15) As typeGrid
'每个棋格的宽度和长度
Dim Gridwidth, Gridheight As Integer
'go=ture表示可以下棋，=false表示不能下棋或该对方下
Dim Go As Boolean
'使用的棋子颜色
Dim MyColor As String
'当前玩家的名字
Dim Username As String
Private Sub AllFight_Click()
'在列表框中选择要观看的棋局
If AllFight.Tag > 0 And AllFight.Text <> "" And cmdCall.Caption <> "退出棋局" Then
    '观看的按扭有效
    cmdLook.Enabled = True
Else
    '观看的按扭无效
    cmdLook.Enabled = False
End If
End Sub
Private Sub AllFight_DropDown()
AllFight.Clear
'向服务器发送列出所有棋局的请求
Winsock.SendData "/AllP"
End Sub
Private Sub cmdCall_Click()
If cmdCall.Caption = "呼叫" Then
'以下为玩家呼叫对方
    If userList.Text = Username Then
        MsgBox "不能呼叫自己"
        Exit Sub
    End If
    If userList.Text <> "" Then
        cmdCall.Enabled = False
        '向服务器发送呼叫其他玩家下棋的请求
        Winsock.SendData "/Call" & userList.Text
    End If
Else
    '如果cmdcall.caption<>"呼叫"(即是"退出棋局")
    '向服务器发送退出棋局的消息
    Winsock.SendData "/Quit"
End If
End Sub
Private Sub cmdDiscont_Click()
'断开与服务器的连接，并设置各个控件的状态
Winsock.Close
Command1.Enabled = True