Public Client As Sockets.TcpClient
    Public Server As Sockets.TcpListener

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Server.Pending Then
            Dim socket As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Raw, ProtocolType.Tcp)
            socket = Server.AcceptSocket()
            Dim buf() As Byte
            socket.Receive(buf, SocketFlags.None)
            If buf.Length <> 0 Then
                MsgBox("buf priniat")
            End If
        End If
    End Sub

    'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '    Dim buf() As Byte
    '    Dim message As String = TextBox1.Text
    '    buf = System.Text.Encoding.Default.GetBytes(message)
    '    Client = New TcpClient("www.google.com", 80)
    '    Client.GetStream.Write(buf, 0, buf.Length)
    '    Client.Close()
    'End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Server = New TcpListener(IPAddress.Parse("IP"), 180)
        Server.Start()
    End Sub