Threading... again.

[squirrelly1]

Is it possible to pass an object to a thread? I tried the following, but it didn't work...

Public Sub StartTCPConnection()
        Dim HandleThread As Thread
        Try
            ' Set the TcpListener on port 13000.
            Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")
            Dim port As Int32 = 13000
            Server = New TcpListener(localAddr, port)
 
            ' Start listening for client requests.
            Server.Start()
 
            While True
                Debug.Write("Waiting for a connection... ")
                ' Perform a blocking call to accept requests.
                ' You could also user server.AcceptSocket() here.
                Dim Client As TcpClient = Server.AcceptTcpClient
                [b]HandleThread = New Thread(AddressOf HandleConnection(Client))[/b]
                HandleThread.Start()
                Client.Close()
            End While
        Catch ex As SocketException
            Debug.WriteLine("socketexeption:", ex.ToString)
        End Try
    End Sub
 
    Public Sub HandleConnection(ByVal Client As TcpClient)
        ' Buffer for reading data
        Dim bytes(1024) As [Byte]
        Dim data As [String] = Nothing
 
 
        Debug.WriteLine("Connected!")
 
        data = Nothing
 
        ' Get a stream object for reading and writing
        Dim stream As NetworkStream = Client.GetStream()
 
        Dim i As Int32
 
        ' Loop to receive all the data sent by the client.
        i = 0
        i = stream.Read(bytes, 0, bytes.Length)
        ' Translate data bytes to a ASCII string.
        data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
        Debug.WriteLine([String].Format("Received: {0}", data))
 
        ' Process the data sent by the client.
        data = CheckValidity(data.ToUpper)
 
        Dim msg As [Byte]() = System.Text.Encoding.ASCII.GetBytes(data)
 
        ' Send back a response.
        stream.Write(msg, 0, msg.Length)
        debug.WriteLine([String].Format("Sent: {0}", data))
 
        ' Shutdown and end connection
        Client.Close()
    End Sub

what is the correct way to do this?

thanx in advance,

SQ1