Imports System

Imports Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Dim str(10) as String

        Dim UpperBound as Integer

        For i as Integer = 0 to 10

            str(i) = "Test"

        Next

    Dim sw as New System.Diagnostics.Stopwatch

    sw.Start()

    UpperBound = str.GetUpperBound(0)

    sw.stop()

    console.writeline(upperbound)

    console.writeline(sw.ElapsedTicks)

    console.writeline("-------")

    UpperBound = 0

    sw.Restart()

    UpperBound = UBound(str)

    sw.stop()

    console.writeLine(upperbound)

    console.writeline(sw.elapsedticks)

    End Sub

End Module