Application.DoEvents() Problem

Ok I am having a bit of a problem here. I am writing a server in vb.net. I need to run a loop that does not stop until I tell it too by the press of a button. So I put Application.DoEvents() in the loop. However, my program still locks up and will not respond. What is going on. I am using VS.Net 2002 btw.

Here is some code for you to look at

VB Code:

Public Sub StartServer(ByVal Listener As TcpListener, ByVal outputwindow As RichTextBox)
        Dim objSocket As Socket
        Dim bytData(32000) As Byte
        Dim charData() As Char
        Dim J As Integer
        Dim i As Integer
        Dim data As String
 
        Listener.Start()
        outputwindow.Text = outputwindow.Text & vbCrLf & "Server Started"
        While blnListen = True
            Application.DoEvents()
            objSocket = Listener.AcceptSocket()
            J = objSocket.Receive(bytData)
            ReDim charData(bytData.Length)
            While (J <> 0)
                charData = ConvertToChar(bytData)
                For i = 0 To charData.Length
                    data = data & charData(i)
                Next
            End While
            outputwindow.Text = outputwindow.Text & vbCrLf & data
        End While
    End Sub

Hi.

I think you might need another Application.DoEvents() inside the second loop.

VB Code:

.
.
.
While (J <> 0)
    Application.DoEvents()
    charData = ConvertToChar(bytData)
    For i = 0 To charData.Length
        data = data & charData(i)
    Next
End While
.
.
.