Private Sub sowas(ByVal se1 As Sockets.Socket)
        Dim ep As New Net.IPEndPoint(EigeneIP, NumericUpDown5.Value)
        se1.Bind(ep)
        se1.Listen(1)
        se1.Accept()
        se1.Close()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim se As New Net.Sockets.Socket( _
        Net.Sockets.AddressFamily.InterNetwork, Net.Sockets.SocketType.Stream, _
        Net.Sockets.ProtocolType.IP)
        Dim ep As New Net.IPEndPoint(WANIP, 500)
        Dim se1 As New Net.Sockets.Socket( _
          Net.Sockets.AddressFamily.InterNetwork, _
          Net.Sockets.SocketType.Stream, Net.Sockets.ProtocolType.IP)
        Try
            de = New Threading.Thread(AddressOf sowas)
            de.Start(se1)
            se.Connect(ep)
            se.Close()
        Catch ex As Exception
            de.Abort()
            se1.Close()
        End Try
    End Sub

__________________________________
irgendwas wird schon rauskommen^^