Private Sub Button1_Click
ScrollToItem(CustomListView1, 50, 2000)
End Sub
Private Sub ScrollToItem(CLV As CustomListView, Index As Int, Duration As Long)
Dim offset As Int = CLV.GetRawListItem(Index).Offset
Dim animator As JavaObject
animator = animator.InitializeStatic("android.animation.ObjectAnimator").RunMethod("ofInt", Array(CLV.sv, "scrollY", Array As Int(offset)))
animator.RunMethod("setDuration", Array(Duration))
animator.RunMethod("start", Null)
End Sub