主题：如何让程序按照设定频率执行

有这么一段代码，获取对方接口提供的信息。对方要求请求频率不大于1次/秒。

Do   '循环获取所有列表
    Dim hc As New HttpClient(CExp(url,appid,sign,page))
    Dim jo As JObject = Jobject.Parse(hc.GetData)  

  
    '更新表操作
    '……

    
    page = page + 1   
    system.threading.thread.sleep(1000) '暂停1秒
Loop While page < epage

但执行时系统会完全停顿下来，直到执行完毕。有什么方法让它以设定频率执行，系统又不停顿呢？

参考

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
    Application.DoEvents
End While

msgbox("10秒后执行")