Someone

Imports System.Net.Sockets.TcpListener
Imports System.Net.Sockets
Imports System.Net
Public Class Form1

    Private Sub btnListen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListen.Click
        Dim tcpListener As TcpListener
        Dim LocalIP As IPAddress = Dns.GetHostEntry("localhost").AddressList(0)
        tcpListener = New TcpListener(LocalIP, 5081)
        tcpListener.Start()
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click

    End Sub