在VB.Net中增加延迟＆amp;排序错误 - “应用程序”含糊不清

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”之前一切正常。之后我开始收到错误消息，对于行 - 应用程序 .DoEvents（）。错误信息是：

  

'Application'不明确，从命名空间或类型导入   'CANoe，System.Windows.Forms'。

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

P.S。 ：

• 我是一名基础程序员＆amp;不是VB.NET的专家，所以你的评论 对我来说非常有价值。
• 我使用的是Microsoft Visual Basic 2010 Express版。
• 我正在使用CANoe在CAN总线上发送一些CAN信号。
• 我想插入一个延迟，允许执行其他线程 并行（例如：我有一个处理程序，无论什么时候都会被调用 从COM端口传入的数据。我打电话时不希望这个停止 延迟功能）

感谢。