oConnection = New OleDb.OleDbConnection
oConnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
  & sAppPath

Imports System.Net.Sockets
Imports System.IO
 
Module Module1
    Dim tcp_client As TcpClient
    Dim Stream_Reader As StreamReader
    Dim IP_Adresse As String = "127.0.0.1"
    Dim Port As Integer = 888
 
    Sub Main()
        tcp_client = New TcpClient()
        Console.WriteLine("Verbinden...")
        tcp_client.Connect(IP_Adresse, Port)
        Console.WriteLine("Verbunden")
        Stream_Reader = New StreamReader(tcp_client.GetStream)
        Console.WriteLine("Nachricht vom Server: ")
        Console.WriteLine(Stream_Reader.ReadLine)
        Console.Read()
    End Sub
 
End Module

Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Net.Sockets
 
Module Module1
    Dim streamw As StreamWriter
    Dim Port As Integer = 888
 
    Sub Main()
        Dim TCPServer As New TcpListener(Port)
        TCPServer.Start()
        Console.WriteLine("Warte...")
        Dim tcpClient As TcpClient = TCPServer.AcceptTcpClient()
        Console.WriteLine("Verbindung OK")
        streamw = New StreamWriter(tcpClient.GetStream())
        streamw.WriteLine("Test Nachricht")
        streamw.Flush()
        Console.Read()
    End Sub
 
End Module