codice:
Public Class Form1
    Dim dati As Object
    Dim tstring As String

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Wsk.Close()
        Wsk.LocalPort = 1300
        Wsk.Listen()
        Timer1.Enabled = True
    End Sub

       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Select Case (Wsk.CtlState)
            Case Is = 0
                Label1.Text = "Chiuso"
                Button2.Enabled = False
                Wsk.Close()
                Me.Text = "Server Chiuso: "
            Case Is = 1
                Label1.Text = "Aperto"
            Case Is = 2
                Label1.Text = "In attesa"
                Button3.Enabled = False
                Button2.Enabled = True
                Me.Text = "Server In Ascolto: "
            Case Is = 3
                Label1.Text = "Connessione in sospeso"
            Case Is = 4
                Label1.Text = "Risoluzione dell'host in corso"
            Case Is = 5
                Label1.Text = "Host risolto"
            Case Is = 6
                Label1.Text = "Connessione in corso"
            Case Is = 7
                Label1.Text = "Connesso"
                Button2.Enabled = True
                Button3.Enabled = True
                Me.Text = "Server on Line: " & Wsk.RemoteHostIP
            Case Is = 8
                Label1.Text = "Il Server ha chiuso la connessione"
                Wsk.Close()
                Wsk.Listen()
            Case Is = 9
                Label1.Text = "Errore Server non trovato"
                Wsk.Close()
                Wsk.Listen()
        End Select
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Wsk.SendData(TextBox2.Text)
        RichTextBox1.Text = RichTextBox1.Text & TextBox2.Text & vbCrLf
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.ScrollToCaret()
        RichTextBox1.Focus()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Wsk.Close()
        Wsk.LocalPort = 1000
        Wsk.Listen()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Wsk.Close()
    End Sub

    Private Sub Wsk_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Wsk.ConnectionRequest

        Wsk.Close()
        Wsk.Accept(e.requestID)

        If Wsk.CtlState = MSWinsockLib.StateConstants.sckConnected Then Wsk.SendData("Connesso")
        ListBox1.Items.Add(Wsk.RemoteHostIP)
    End Sub

    Private Sub Wsk_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Wsk.DataArrival
        Dim i As Integer

        tstring = ""
        Wsk.GetData(dati)
        For i = 0 To UBound(dati)
            tstring = tstring + Chr(dati(i))
        Next
        RichTextBox1.Text = RichTextBox1.Text & tstring & vbCrLf
        RichTextBox1.SelectionStart = RichTextBox1.TextLength
        RichTextBox1.ScrollToCaret()
        RichTextBox1.Focus()
        
    End Sub

End Class
Questo è tutto, buone chattate