Sub AnimateSDIconTextView(t As SD_IconTextView, Duration As Int, newTop As Int)
Dim base As B4XView = t.GetBase
Dim left As Int = base.Left
Dim height As Int = base.Height
Dim width As Int = base.width
base.SetLayoutAnimated(Duration, left, newTop, width, height)
End Sub