Private Sub SetHeightAnimated(v As B4XView, NewHeight As Int, Duration As Int)
Dim startTime As Long = DateTime.Now
Dim startHeight As Int = v.Height
Dim deltaHeight As Int = NewHeight - startHeight
Dim t As Long = DateTime.Now
Do While t < startTime + Duration
Dim h As Int = startHeight + deltaHeight * (t - startTime) / Duration
v.Height = h
Sleep(10)
t = DateTime.Now
Loop
v.Height = NewHeight
End Sub