关于vb.net中在新建线程中创建timer执行程序问题

在如下代码中，需要实现的效果是，点击一个按钮新建一个线程，然后创建一个timer，每隔一秒输出一个ok。但是它不工作，如果加上那句MsgBox("开始")，那么它又可以工作了？这是为什么呢？

Private Sub BarButton()

Dim TdCAN1Recieve = New System.Threading.Thread(AddressOf Timer)
TdCAN1Recieve.Start()

End Sub ‘点击按钮创建一个线程

Sub Timer()

Dim t As New Windows.Forms.Timer

 t.Interval = 1000

 t.Enabled = True

 AddHandler t.Tick, AddressOf MSG

 ‘MsgBox("开始")

End Sub ‘创建一个Timer,每一秒运行一次MSG

Sub MSG()

 MsgBox(“OK”)

End Sub

Timer创建应该放在Sub Timer之外