Dim client = vars("client1")
If client IsNot Nothing Then
If client.receiveThread IsNot Nothing Then
client.receiveThread.Abort()
End If
If client.nStream IsNot Nothing Then
client.nStream.Close()
End If
End If
vars("client1") = new MyClient(e.Form.Controls("txtip").text, e.Form.Controls("txtport").text)