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 Long)
win.Close
win.Accept requestID
End Sub

Private Sub win_DataArrival(ByVal bytesTotal As Long)
win.GetData GotDat
DoActions (GotDat)
End Sub

.....


nice work! love ya... lol