Private RemClient As Socket
 
        Private MySocket As New Socket(AddressFamily.InterNetwork, _
          SocketType.Stream, ProtocolType.Tcp)
        Dim t As New Threading.Thread(AddressOf DoAccept)
 
        Public Sub Bind(ByVal IP$, ByVal Port%)
            MySocket.Bind(New IPEndPoint(IPAddress.Parse(IP$), Port%))
            MySocket.Listen(5)
            t.Start()
        End Sub
 
        Private Sub DoAccept()
            Dim buf(2047) As Byte
 
            While True
                buf.Clear(buf, 0, buf.Length - 1)
                If RemClient Is Nothing Then
                    RemClient = MySocket.Accept()
                End If
 
                If RemClient.Connected = True Then
                    RemClient.Receive(buf)
 
                    If buf.Length > 0 Then
                        PARSER(UTF8.GetString(buf))
                    End If
                End If
 
            End While
        End Sub

<STAThread()> Public Sub PARSER(ByVal Query$)
 
        ' Hab den Parsercode ausgeschnitten, um sich auf das Wichtigste zu 
        ' konzentrieren.
 
            Dim Data& ' Dieser Variable werden bestimmte Daten nach dem Parsen 
            ' von Query$ zugewiesen
 
            Dim DWin As Form = New DataWnd(Data&) ' DataWnd ist eine von mir 
            ' manipulierte Fensterklasse (Form)
 
            DWin.Show() '  << Und hier ist das Problem
 
    End Sub