Таймер занимает 50% у 3 HGz процессора

[Novichok$]

Код: Выделить всё


Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Vom Windows Form Designer generierter Code "

    Private Shared Timer1 As New System.Windows.Forms.Timer
    Private Shared exitFlag As Boolean = False

    Public Shared Sub TimerEventProcessor(ByVal myObject As Object, _
    ByVal myEventArgs As EventArgs)
    MsgBox("timer")
   
    End Sub

    Public Shared Sub Main()
        AddHandler Timer1.Tick, AddressOf TimerEventProcessor
        Timer1.Interval = 30000
        Timer1.Start()
        While exitFlag = False
            Application.DoEvents()
        End While

    End Sub

Это упростить как то можно?
Нужно просто MsgBox с интервалом в 30 сек показывать

[Novichok$]

спасибо за помощь,

сам нашел