public Sub setSelectedIndex( index As Int )
Dim old = mSelectedIndex
mSelectedIndex = index
Dim jump As Int = (old - mSelectedIndex) * mWidth
Ani.InitializeTranslate("Ani", 0, 0, jump, 0)
Ani.Duration = 400
Ani.RepeatCount = 0
Ani.Start(mScView)
End Sub