Public Function FindFreeSock(SockName As Winsock)

Dim i

For i = 0 To SockName.Ubuod

    If i = SockName.Uboud Then
   
       Load (i + 1)
      
    End If

    If SockName(i).State = 0 Then
   
       SockName(i).Listen
      
    End If
   
Next

End Function
---------------------------------------------------------
Private Sub Command1_Click()

If Text1.Text = "" Then

   MsgBox "请输入IP地址!"
   
   Exit Sub
   
ElseIf Text2.Text = "" Then

   MsgBox "请输入监听端口!"
   
   Exit Sub
   
End If

FindFreeSock (Socket)---------------------------------此行出错

With Socket

     .RemoteHost = Text1.Text
     
     .RemotePort = Text2.Text
     
End With

Socket

With Sock

     .RemoteHost = Text1.Text
     
     .RemotePort = Text2.Text
     
End With

Sock.Connect

Picture1.Print "正在连接......"

End Sub

发现BUG:变量未定义
Private Sub Form_Unload(Cancel As Integer)
    ClientLogin.cmd_connect.Caption = "链接"
    ClientLogin.cmd_connect.Enabled = True
    ClientLogin.username.Locked = False
    If (shut = 1) Then    '如果异常中断标识符生效则不执行接下来的步骤
        Exit Sub
    End If
    Dim ret%
    ret = MsgBox("您确定要断开连接?", 4 + vbQuestion + 256, "Continue?")
    If (ret = 6) Then
        ClientLink.SendData "[logout]|" & serverid.Caption
        DoEvents
        ClientLink.Close
        ClientLogin.Show
        Exit Sub
    End If
    Cancel = 1
End Sub

顺便帮忙看一下这段代码:
Private Sub Timer1_Timer()

   If ListView1.ListItems(0).SubItems(0) = "" Then----------------------------------------此行出错
   
      Exit Sub
      
   End If

   Select Case Winsock2(ListView1.SelectedItem.Index).State
   
          Case 0
         
               Label4.Caption = "工作状态:" & "未连接"
               
          Case 2
         
               Label4.Caption = "工作状态:" & "正在监听......"
               
          Case 4
         
               Label4.Caption = "工作状态:" & "正在解析域名......"
               
          Case 6
         
               Label4.Caption = "工作状态:" & "正在连接......"
               
          Case 7
         
               Label4.Caption = "工作状态:" & "已连接"
               
          Case 8
         
               Label4.Caption = "工作状态:" & "对方正在关闭连接......"
               
          Case 9
         
               Label4.Caption = "工作状态:" & "连接错误"
               
   End Select

End Sub

就是用户列表框架里面那个

出现第二个BUG:
Private Sub Command_KeyPress(KeyAscii As Integer)
    If (KeyAscii <> 13) Then
        Exit Sub
    End If
    Dim cmd$(), data_send$, num%
    data_send = "[server]|" & Command.Text
    For num = 1 To linknow
        If (ServerLink(num).State = 7) Then
            ServerLink(num).SendData data_send---------------------------错误:变量未定义
            DoEvents
        End If
    Next num
    Message.AddItem "[Server]:" & Command.Text
    Command.Text = ""
    KeyAscii = 0
End Sub

BUG3:
Private Sub Command_KeyPress(KeyAscii As Integer)
    If (KeyAscii <> 13) Then
        Exit Sub
    End If
    Dim cmd$(), data_send$, num%
    data_send = "[server]|" & Command.Text
    For num = 1 To linknow
        If (ServerLink(num).State = 7) Then
            ServerLink(num).SendData data_send-----------------------------错误:子程序或函数未定义,
            DoEvents
        End If
    Next num
    Message.AddItem "[Server]:" & Command.Text
    Command.Text = ""
    KeyAscii = 0
End Sub