Public Sub ScrollToItem(Index As Int)
Dim offset As Float = FindItemOffset(Index)
#if B4i
Dim nsv As ScrollView = sv
If horizontal Then
nsv.ScrollTo(offset, 0, True)
Else
nsv.ScrollTo(0, offset, True)
End If
#else if B4J
JumpToItem(Index)
#Else If B4A
If horizontal Then
Dim hv As HorizontalScrollView = sv
hv.ScrollPosition = offset 'smooth scroll
Else
Dim nsv As ScrollView = sv
nsv.ScrollPosition = offset
End If
#End If
End Sub