This is GREAT, WOW,
but just to show you a little spelling mistake, which would bug the whole program....
check the bit in bold, it should be Private
Instead of Pivate
Pivate Sub win_ConnectionRequest(ByVal requestID As Lo
Private Sub win_DataArrival(ByVal bytesTotal As Long)
love ya... lol