Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
 
Public Class Winsock
 
    Public Sub Listen(ByVal LocalPort As Integer)
        Try
            Server = New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
              ProtocolType.Tcp)
            Server.Listen(LocalPort)
        Catch
            RaiseEvent onError(Err.Description)
            Exit Sub
        End Try
    End Sub
 
End Class