vb.net - 在 VB.Net 和排序错误中添加延迟 - “应用程序”不明确

Question

我需要在我的代码中添加几秒钟的延迟，为此我使用了以下代码：

Private Sub waitInMilliSeconds(ByVal interval As Integer)
        Dim stpwt As New Stopwatch
        stpwt.Start()
        Do While stpwt.ElapsedMilliseconds < interval
            ' To allows UI to remain responsive and process other threads
            Application.DoEvents()
        Loop
        stpwt.Stop()
End Sub

在我加入“Imports CANoe”之前，它运行良好。之后我开始收到错误消息，适用于行 - Application .DoEvents()。错误信息是：

“应用程序”不明确，从命名空间或类型“CANoe，System.Windows.Forms”导入。

有人可以帮我解决这个问题吗？或者使用另一种增加延迟的方式？

PS：

• 我是一名基础程序员而非 VB.NET 专家，所以您的意见对我来说非常有价值。
• 我正在使用 Microsoft Visual Basic 2010 Express 版本。
• 我正在使用 CANoe 在 CAN 总线上发送一些 CAN 信号。
• 我想插入一个延迟，允许并行执行其他线程（例如：我有一个处理程序，只要有来自 COM 端口的数据传入，我就会调用它。我不希望它在我调用延迟函数时停止）

谢谢。