Sub CLV_ScrollChanged (...)
if lbl.Visible = False Then lbl.SetVisibleAnimated(300, True)
ScrollChangedIndex = ScrollChangedIndex + 1 'Global Int variable
Dim MyIndex As Int = ScrollChangedIndex
Sleep(500)
If MyIndex = ScrollChangedIndex Then lbl.SetVisibleAnimated(300, False)
End Sub