Hey Ive been racking my brains trying to figure out why my vb is acting like this and by this i mean

Code:
    Private Sub DoListen()
        constate = "Awaiting Connection"
        Do

            Try
                constate = "Connection Established"
                Dim tcpClient As TcpClient = listener.AcceptTcpClient()
                Dim networkStream As NetworkStream = tcpClient.GetStream()
                Dim bytes(tcpClient.ReceiveBufferSize) As Byte


                While networkStream.CanRead
                    Do
                        networkStream.Read(bytes, 0, CInt(tcpClient.ReceiveBufferSize))
                        Dim clientdata As String = Encoding.ASCII.GetString(bytes)

                        command = clientdata
thats just part of the do listen sub, which works perfectly.

but the problem is constate I have a timer which is enabled and started with a interval of 100 and the code on that is

textbox1.text = constate

but it doesnt change at all, before constate i was inserting textbox1.text = "connection....." but that didnt work either, only msgbox seemed to work, does anyone know what is wrong or waht would cause such a odd occurance?