Variable Value changes with my launched task

But I'm not getting the output expected ... so how is my code working fine? I need to know that when I output for Timer 1 ... I'm going to get Timer 1 information. I don't care about the order but I do care about being confident that I'm getting the right timer.

Asked another way ... how can I ensure the outputed number of "1"s and "2"s is what I expect if the problem is in the process scheduler?

Here is the code for my example (with a line commented out towards the bottom so you can easily switch from subroutine to task and back)

<pre>
Imports System.Threading.Tasks

Public Class Form1
Public TickCounts As Integer = 0
Public AllowTimerTics As Boolean = False
Public CurTimers(4) As TimerListDef

Public Class TimerListDef
Public TimerID As Integer
Public TimerInterval As Integer
Public CountDown As Integer
End Class

Delegate Sub myInvokedMethod(ByVal test As String) 'We need a delegate in order to be able to invoke it at runtime with a parameter

Private Sub AddErrItem(ByVal ErrStr As String)
Dim item1 As New ListViewItem
Dim tempStr As String
tempStr = Format(Now, "hh:::mm:::ss:::fff ") + ErrStr
item1 = New ListViewItem(tempStr)
lstErrors.Items.Add(item1)
End Sub

Delegate Sub myInvokedOPCMethod(ByVal test As Integer) 'We need a delegate in order to be able to invoke it at runtime with a parameter

Private Sub ReadOPCData(ByVal CurTimerToRead As Integer)
Dim DispText As String
DispText = "Timer: " & CurTimerToRead.ToString
If Me.InvokeRequired Then
Me.Invoke(System.Delegate.CreateDelegate(GetType(myInvokedMethod), Me, "AddErrItem"), New Object() {DispText})
Else
AddErrItem(DispText)
End If
End Sub

Private Sub TimerTicToc_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerTicToc.Tick
Dim TimerToRead As Integer

TextBox2.Text = TickCounts.ToString
If AllowTimerTics Then 'Should not allow timer tics when the Timers/Tags global variables are being recreated
For Counter = 1 To 3
CurTimers(Counter).CountDown = CurTimers(Counter).CountDown - 1
If CurTimers(Counter).CountDown <= 0 Then
CurTimers(Counter).CountDown = CurTimers(Counter).TimerInterval
TimerToRead = Counter 'We do this because the debugger warned of unexpected results of we passed the counter directly
'Launch a task to do the read to keep the time for this loop short
Task.Factory.StartNew(Sub() ReadOPCData(TimerToRead), TaskCreationOptions.AttachedToParent)
'ReadOPCData(TimerToRead)
End If
Next
TickCounts += 1
If TickCounts > 120 Then
AllowTimerTics = False
TimerTicToc.Stop()
End If
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TickCounts = CInt(TextBox1.Text)
If TimerTicToc.IsRunning Then
MessageBox.Show("Hey, it's running!")
Else
For Counter As Integer = 1 To 3
CurTimers(Counter) = New TimerListDef
CurTimers(Counter).TimerID = Counter
Next
CurTimers(1).TimerInterval = 10
CurTimers(2).TimerInterval = 25
CurTimers(3).TimerInterval = 100
CurTimers(1).CountDown = 10
CurTimers(2).CountDown = 25
CurTimers(3).CountDown = 100
Process.GetCurrentProcess().PriorityClass = ProcessPriorityClass.RealTime
AllowTimerTics = True
Try
TimerTicToc.Start()
Catch ex As Exception
MsgBox("Can't start the timer" & vbCrLf & ex.Message)
End Try
TimerTicToc.Start()
AllowTimerTics = True
End If
End Sub
End Class
</pre>

This particular example requires a ListView box, 2 text boxes and a button. The listview is for output and I've syncronized the timer to Form1 to simplify output ... although I don't intend to in the final version.