Sub Main()
 
        Dim arr(5) As Integer
 
        arr(0) = 1
        arr(1) = 5
        arr(2) = 10
        arr(3) = 15
 
       For i As Integer = 0 To UBound(arr)
            Console.WriteLine(arr(i))
        Next i
 
        Console.ReadLine()
    End Sub