Vb.net Windows将无限期运行x秒

大家好，我已经创建了一个windows服务，我想在很短的时间内运行，但是，我想确保我的代码是正确的，dobe，我认为我已经正确定义了我的计时器，因为它不工作

---

我在没有计时器的控制台中尝试了我的代码，但在windows服务中没有。你能显示计时器代码吗？只是一个猜测：但是可能

这个计时器在MTA环境中执行，但服务可能必须在STA环境中启动。看看这篇文章：你的代码是做什么的？默认情况下，Windows服务通常在不同的用户下运行，因此在控制台应用程序中为您工作的内容可能由于权限等原因而无法在Windows服务中工作，并且Windows服务无法与Windows Vista或更高版本上的桌面（例如，显示表单或消息框）交互。
  Public thisTimer As System.Timers.Timer
Dim Email As String
Dim auction As String
Dim buyerid As Integer
Protected Overrides Sub OnStart(ByVal args() As String)
    ' Add code here to start your service. This method should set things
    ' in motion so your service can do its work.

    thisTimer = New System.Timers.Timer()
    thisTimer.Enabled = True
    thisTimer.Interval = 1000
    thisTimer.AutoReset = True
    AddHandler thisTimer.Elapsed, AddressOf thisTimer_Tick
    thisTimer.Start()

End Sub