实现端口对端口的聊天

0
If KeyAscii = 13 Then
  New_Line = Mid(Text2, Last_Line_Feed + 1)
   Last_Line_Feed = Text2.SelStart
   Winsock1.SendData New_Line
  Label7.Caption = "  Sent " & (LenB(New_Line) / 2) & " bytes  "
End If
End Sub

Private Sub Timer1_Timer()
Line19.Visible = False
Line20.Visible = False
Line21.Visible = False
Line22.Visible = False
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim New_Text As String
Winsock1.GetData New_Text
Text1.SelText = New_Text
Label7.Caption = "  Recieved " & bytesTotal & " bytes  "
End Sub