dim yzm() as byte

a:

        Set xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")

        sUrl = "http://www.picatown.com/captcha.php"

        xmlhttp.Option(6) = True

        xmlhttp.SetTimeouts 0, 0, 0, 0

        xmlhttp.Open "GET", sUrl, True

        xmlhttp.SetRequestHeader "Host", "www.picatown.com"

        xmlhttp.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 5.1; rv:52.0) Gecko/20100101 Firefox/52.0"

        xmlhttp.SetRequestHeader "Accept", "*/*"

        xmlhttp.SetRequestHeader "Accept-Language", "zh-CN,zh;q=0.8,en-US;q=0.5,en;q=0.3"

        xmlhttp.SetRequestHeader "Referer", "http://www.picatown.com/"

        xmlhttp.SetRequestHeader "Connection", "keep-alive"

        xmlhttp.SetRequestHeader "Cache-Control", "max-age=0"

        'xmlHttp.setRequestHeader "Accept-Encoding","gzip, deflate"

        xmlhttp.SetRequestHeader "If-Modified-Since", "0"

        xmlhttp.Send

        xmlhttp.WaitForResponse

        yzm = xmlhttp.ResponseBody

        s = xmlhttp.GetAllResponseHeaders

        xmlhttp.Abort: Set xmlhttp = Nothing

    GoTo a

反复让他循环很多次后，就会发现这期间内存是一直在涨的，可能这个是涨的不多，但是如果多线程的情况下，基本100线程1秒就能涨个1M左右，一会就几百M内存占用了，是哪写错了么？