public class Test public Shared Sub Main Dim values As Array = _ Array.CreateInstance(GetType(Integer), 11) For i As Integer = 0 To 10 values.SetValue(i, i) Next i End Sub End class