vb6.0 异步发送http请求

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    
    objHTTP.setTimeouts lResolve, lConnect, lSend, lReceive
    
    objHTTP.Open "GET", "http://" & posturlip & ":" & port & poststr, False
    
    objHTTP.setRequestHeader "CONTENT-TYPE", "application/x-www-form-urlencoded"

    objHTTP.send
    
    If objHTTP.Status = 200 Then
        bytData = objHTTP.responseBody
        retstr = (StrConv(bytData, vbUnicode))
        'MsgBox retstr
        Form1.Timer3.Enabled = False '请求到结果则将计数器置为false，间隔时间设置为最初设置的时间
        tempecquefrenum = pecquefre
    End If
    
    Set objHTTP = Nothing

我想用异步的方式提交这个请求，把False改成True后请求是发出去了，但是却收不到返回的数据，看网上好像还差个onreadystatechange什么的，但具体该怎么写呀，求助，刚学又急着要。 --------------------编程问答-------------------- 定义一个类，类里有个默认方法。
然后NEW一个这个类，给objHTTP的某个属性，（属性名忘了，想不起来了。）
然后在这个类里的默认方法里就可能处理返回的数据了。

补充：VB ,  基础类