Imports System
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Public Class Winsock
    Dim Server As Socket
    Public Event onError(ByVal msg As String)
    Public Sub Listen(ByVal LocalPort As Integer, ByVal sIP As String)
        Try
            Dim ip As IPAddress = IPAddress.Parse(sIP)
            Dim localEp As New IPEndPoint(ip, 3306)
            Dim port As Int16
            Dim tcpip As String
            Server = New Socket(AddressFamily.InterNetwork, SocketType.Stream, _
              ProtocolType.Tcp)
            port = CType(Server.LocalEndPoint, IPEndPoint).Port
            tcpip = CType(Server.LocalEndPoint, IPEndPoint).Address.ToString
            Debug.Write("Verbinde zu " & tcpip & ":" & port)
            Server.Bind(localEp)
            Server.Listen(10)
        Catch
            RaiseEvent onError(Err.Description)
            Exit Sub
        End Try
    End Sub
End Class

Public WithEvents x As Winsock
# REGION
# END REGION
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        x = New Winsock
        x.Listen(3306, "127.0.0.1")
    End Sub
Private Sub x_onError(ByVal msg As String) Handles x.onError
        MsgBox(msg)
    End Sub