Sub ScrollView1_ScrollChanged(Position As Int)
ScrollIndex = ScrollIndex + 1 'ScrollIndex is a global variable
Dim myIndex As Int = ScrollIndex
Sleep(300) 'change duration as needed
If myIndex <> ScrollIndexThen Return
Log("User stopped scrolling")
End Sub