Kill the Dim t1 as TextBox line
Pass in t1 as a string rather than a textbox
e.g. Call Progression("Start Wash-up", "t1", c_Blue, BarTime)
Then, in your function, change it to expect a string rather than a textbox
e.g. Static Function Progression(Task As String, Interval As String, Color
As...