Citazione:Imports System.IO
Imports System.Net.Sockets
Module Module1

Sub Main()
Dim ascolta As New TcpListener(8585)
ascolta.Start()
Dim flusso As Socket = ascolta.AcceptSocket()
Dim ricevibuffer(255) As Byte
flusso.Receive(ricevibuffer, ricevibuffer.Length, SocketFlags.None)
Dim frase As String = System.Text.Encoding.ASCII.GetString(ricevibuffer, 0, ricevibuffer.Length).Trim(Microsoft.VisualBasic.ChrW(0))
While "frase" <> "fine"
Console.WriteLine(frase)
flusso.Receive(ricevibuffer, ricevibuffer.Length, SocketFlags.None)
frase = System.Text.Encoding.ASCII.GetString(ricevibuffer, 0, ricevibuffer.Length).Trim(Microsoft.VisualBasic.ChrW(0))
End While
ascolta.Stop()
End Sub

End Module

Citazione:Imports System.IO
Imports System.Net.Sockets
Public Class Form1
Dim ascolto As New TcpClient("ip della persona con cui vuoi chattare", 8585)
Dim legge As Stream = ascolto.getstream
Dim frase As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
frase = TextBox1.Text
ascolto.SendBufferSize = 256
Dim inviabuffer As Byte() = System.Text.Encoding.ASCII.GetBytes(frase)
legge.Write(inviabuffer, 0, inviabuffer.Length)
End Sub