Public Class Form1

    Private Sub but_connessione_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles but_connessione.Click
        sock.LocalPort = 9999
        sock.Listen()
    End Sub

    Private Sub sock_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles sock.ConnectionRequest
        sock.Connect()
        sock.SendData("Connessione Effettuata")
    End Sub

    Private Sub sock_Error(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ErrorEvent) Handles sock.Error
        MsgBox("Errore")
        sock.Close()
    End Sub
End Class