.net - ビープ音を発生させるwait()サブ

Question

待機タイマーを実行すると、サブでビープ音が鳴ります。ビープ音は doevents で発生し、サブが最初に呼び出されたときにのみ発生するようです (つまり、最初の待機時)。メッセージボックスのポップアップ ビープ音のように聞こえます。誰にもアイデアはありますか？

Private Sub wait(ByVal interval As Integer)

    Dim stopW As New Stopwatch
    stopW.Start()
    Do While stopW.ElapsedMilliseconds < interval
        ' Allows your UI to remain responsive and apparently is causing beeping
        My.Application.DoEvents() ' I get a beep when this line is executed
    Loop
    stopW.Stop()
End Sub