Private Sub Animate(Panel As B4XView)
Dim iv As ImageView
iv.Initialize("")
Dim xiv As B4XView = iv
Panel.Parent.AddView(iv, Panel.Left, Panel.Top, Panel.Width, Panel.Height)
XUIViewsUtils.SetBitmapAndFill(xiv, Panel.GetView(0).GetBitmap)
xiv.SetLayoutAnimated(200, xiv.Left - 50dip, xiv.Top - 100dip, xiv.Width * 1.2, xiv.Height * 1.2)
Sleep(200)
xiv.SetLayoutAnimated(200, xiv.Left + 80dip, xiv.Top - 100dip, xiv.Width * 1.2, xiv.Height * 1.2)
xiv.SetVisibleAnimated(200, False)
Sleep(250)
xiv.RemoveViewFromParent
End Sub