B4J Question List to Array

Dim bmproot As List
Dim joList As JavaObject = bmproot
Dim bmp() As Object = joList.RunMethod("toArray", Null)

    Dim bmproot As List
   bmproot.Initialize
   For i = 1 To 100000
       bmproot.Add(Rnd(1, 10000))
   Next
   
   
   Dim n As Long = DateTime.Now
   For Test = 1 To 10000
       Dim bmp(bmproot.Size) As Int
       For index=0 To bmproot.Size-1
           bmp(index)=bmproot.Get(index)
       Next
   Next
   Log((DateTime.Now - n) / 10000)