TwinBasic

[WaynePhillipsEA]

There's something wrong with the VB6.Col For Each test...
...which traditionally works pretty fast (as the test below shows, when enumerating 1Mio entries)

Private Sub Form_Click()
  Cls
  Dim i As Long, Col As New Collection, T, V
  
  T = Timer: i = 0
    For i = 1 To 10 ^ 6
      Col.Add i
    Next
  Print "Col Add:", CLng((Timer - T) * 1000) & "msec"
  
  T = Timer: i = 0
    For Each V In Col
      i = i + 1: If i <> V Then Stop
    Next
  Print "For Each:", CLng((Timer - T) * 1000) & "msec"
End Sub

Olaf

Well spotted. Indeed, there was a copy-paste bug in the for-each test causing the results to also be affected by the cost of forward-index retrieval. After fixing the bug, the VB6 and tB versions of that test now look to perform similarly.