I am stuck with the following

I am asking for the LIST command on the newsserver
so I will receive all the newsgroups.

I am doing this

Do
bytes = mysocket.Receive(bb, bb.Length, 0)
ListBox1.Items.Add(Encoding.ASCII.GetString(bb))
Loop While bytes > 0


but at the end it lockes up, cause it's getting stuck in that loop
how can I tell it to continue with something else as soon as I don't receive data anymore?

Thanks