Imports System
Imports System.Linq
Public Class Example
Public Shared Sub Main(ByVal args As String())
Dim arr As String() = {"vb.net", "c", "c++", "python", "java"}
Dim result = arr.Select(Function(v, i) New With { _
Key.Index = i, _
Key.Value = v _
})
For Each item In result
Console.WriteLine(String.Format("Index {0} = {1}", item.Index, item.Value))
Next
End Sub
End Class
' run:
'
' Index 0 = vb.net
' Index 1 = c
' Index 2 = c++
' Index 3 = python
' Index 4 = java
'