Private Sub cmdCon_Click()

    If Me.txtName.Text = "" Then
    
        MsgBox "请输入昵称!", vbInformation, "提示!"
        Exit Sub
        
    End If

    Me.wsClient.RemoteHost = Me.txtServer.Text   '指定或返回远程服务器的名称或地址
    Me.wsClient.RemotePort = Me.txtPort.Text '指定或返回要连接到的远程服务器的端口号
   
    Me.wsClient.Connect
   
    Me.cmdCon.Enabled = False
    Me.cmdSend.Enabled = True
   
End Sub

Private Sub cmdSend_Click()

    Me.wsClient.SendData Me.txtName.Text & " : " & Me.txtMsg.Text    '发送当前数据块
   
End Sub

'有新数据到时被触发
Private Sub wsClient_DataArrival(ByVal bytesTotal As Long)

    Dim strMsg As String
    
    Me.wsClient.GetData strMsg  '接收来自远程计算机的当前数据块
    
    Me.lstShow.AddItem strMsg
  
End Sub