The following lines were added (+) and removed (-):
Here is a State to Text Function you may find useful: Private Function StateText(n As Integer) As String Select Case n Case 0: StateText = "stateless" Case 1: StateText = "checking remote address" Case 2: StateText = "remote address accepted" Case 3: StateText = "connecting" Case 4: StateText = "connected" Case 5: StateText = "data requesting" Case 6: StateText = "data sent" Case 7: StateText = "response receiving" Case 8: StateText = "response received" Case 9: StateText = "disconnecting" Case 10: StateText = "disconnected" Case 11: StateText = "error" Case 12: StateText = "success" Case Else: StateText = "that's weird" End Select End Function