Private myTimerThread As System.Threading.Timer
 
Dim myCallback As New System.Threading.TimerCallback(AddressOf Task)
myTimerThread = New System.Threading.Timer(myCallback, Nothing, 10000, 1000)
 
Private Sub Task_Bewaesserung(ByVal state As Object)
    Main.Invoke(New MethodInvoker(AddressOf Set_OvalShape_FillColor))
End Sub 
 
Public Sub Set_OvalShape_FillColor()
    Main.OvalShape_1.FillColor = Color.Red
End Sub