Private Sub Command1_Click()
    For i = 0 To 100
        geth U(i) '会卡住
        'Command2_Click() '会卡住
        'SendClick Command2.hwnd, 10, 10 '（PostMessage来点击Command2）不会卡住，但是传递传送特别麻烦
    Next
End Sub
Sub geth(Url)
    With WinHttp
        .Open "GET", Url, True
        .Send
        .WaitForResponse
    End With
End Sub
Private Sub Command2_Click()
    geth U(i)
End Sub
这样，怎么可以用循环不卡住