Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Net.Sockets.Socket
Imports System.Net.Sockets.TcpListener
Imports System.Net.Sockets.TcpClient
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Vom Windows Form Designer generierter Code "
...... cut
#End Region
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Try
 
            Dim port As Int32 = 13000
            Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
            Dim server As New TcpListener(localAddr, port)
 
            Label1.Text = "listen"
 
            server.Start()
 
            While True
                Dim client As TcpClient = server.AcceptTcpClient()
            End While
 
 
 
 
        Catch ex As Exception
            MsgBox(ex.Message,MsgBoxStyle.OKOnly)
 
 
        End Try
    End Sub
End Class