Dim refView As Reflector
Dim strCounter As String
Dim lbl As Label
Dim StartTime As Long
lbl.Initialize("")
Activity.LoadLayout("Console")
refView.Target = scvConsole.Panel
For Counter = 0 To 10000
Dim lblView As Label
lblView.Initialize("")
strCounter = Counter
lblView.Tag = strCounter
scvConsole.Panel.AddView(lblView, 0, Counter, 100dip, 30dip)
Next
StartTime = DateTime.Now
For Counter = 0 To 10000
strCounter = Counter
lbl = refView.RunMethod2("findViewWithTag", strCounter, "java.lang.Object")
lbl.Width = 150dip
Next
Log("R:" & (DateTime.Now - StartTime))
StartTime = DateTime.Now
For Counter = 0 To 10000
strCounter = Counter
For Each v As View In scvConsole.Panel.GetAllViewsRecursive
If v.Tag = strCounter Then
v.Width = 150dip
Exit
End If
Next
Next
Log("F:" & (DateTime.Now - StartTime))