如何使用 Chilkat 作为异步通过 VB6 从网站获取数据？

问：

我想读取服务器上的文本文件的数据，并使用 Active X Chilkat 将其显示在我的程序中。我使用该方法来阅读文本，我希望使用这种方法，程序在阅读文本之前不会被锁定。但是程序被锁定，直到文本被读取和显示。Http.QuickGetObjAsync

这是我的代码：

Dim WithEvents Http As ChilkatHttp
Dim Http As New ChilkatHttp

Dim task As ChilkatTask
Set task = Http.QuickGetObjAsync("http://www.example.com/notification.txt")   
If (Http.LastMethodSuccess <> 1) Then
Debug.Print Http.LastErrorText
Exit Sub
End If


success = task.Run()
If (success <> 1) Then
Debug.Print task.LastErrorText

Exit Sub
End If

Do While task.Finished <> 1
'  Sleep 100 ms.
task.SleepMs 50
Loop

If (task.StatusInt <> 7) Then
Debug.Print "Task did not complete."
Debug.Print "task status: " & task.status

Exit Sub
End If

Dim resp As New ChilkatHttpResponse
success = resp.LoadTaskResult(task)

 MsgBox resp.Body 

 If (success <> 1) Then
 Debug.Print resp.LastErrorText
 Exit Sub
 End If

 Debug.Print "status code: " & resp.StatusCode
 Debug.Print "response header: " & resp.Header
 success = glob.FinalizeThreadPool()

我也使用了这段代码。但似乎这个事件没有实现，也没有效果。

Private Sub http_TaskCompleted(ByVal task As Chilkat_v9_5_0.IChilkatTask)
Dim response As New ChilkatHttpResponse
Dim success As Long
success = response.LoadTaskResult(task)

If (success <> 1) Then
    Debug.Print response.LastErrorText
    MsgBox response.Body 
    Exit Sub
End If
Debug.Print response.Body 
End Sub

有没有解决方案可以防止程序在阅读文本时锁定？

注意：Chilkat版本：9.5.0.91