vb.net：索引号在“for each”

有时在VB.net我有一些像：

For Each El in Collection
   Write(El)
Next

但是,如果我需要索引号,我必须改变它

For I = 0 To Collection.Count() - 1
   Write(I & " = " & Collection(I))
Next

甚至(更糟)

I = 0
For Each El In Collection
   Write(I & " = " & El)
   I += 1
Next

是否有另一种获取索引的方式？

如果您使用通用集合(Collection(of T)),则可以使用 IndexOf method.

For Each El in Collection
   Write(Collection.IndexOf(El) & " = " & El)
Next