Dim server As New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
          ProtocolType.Udp)
 
        Dim LocalEP As New IPEndPoint("149.240.163.210", 6000)
        '' daten an das Socket verbinden
        server.Bind(LocalEP)
        '' Socket aktivieren und auf Client warten
        Try
            server.Listen(1)
            Console.WriteLine("Horiba")
 
        Catch ex As Exception
            Console.WriteLine(ex.ToString())
        Finally
            server.Shutdown(SocketShutdown.Both)
            server.Close()
 
        End Try
 
end sub

hallo ich lerne gerade visual donet und m?chte gern an den Foren teilnehmen