Dim platz1Thread As Thread = New Thread(New ThreadStart(AddressOf platz1_go))
 
Private Sub platz1_go()
 
timer1.start
 
End Sub
 
Private Sub timer1_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles timer1.Tick
 
 ablauf()
 
End Sub
 
Private Sub ablauf()
 
msgbox("test")
 
End Sub