comm

I use the followin to read buffer continuesly:

Do
Dim instring As String
Loop Until MSComm1.InBufferCount = 1


I would like the code to keep reading the buffer untill I press a stop command.However using the above code means the while the buffer being read the rest of the form is frozen and any command button wont be enable to be clicked.

Even this wont work:
Do
Dim instring As String
Loop Until MSComm1.InBufferCount = 1 or cmd_stop = true

all buttons are lock while buffer is being read...
how can I over come this???

Do
Dim instring As String
doEvents
Loop Until MSComm1.InBufferCount = 1 or cmd_stop = true

I wouldnt declare the variable inside the loop ...

Code:

---

Option Explicit
Private inString As String

Do
    DoEvents
Loop Until (MSComm1.InBufferCount = 1) Or cmd_stop

---