Private Sub AddFadingArrow (Base As B4XView)
Dim lbl As B4XView = XUIViewsUtils.CreateLabel
lbl.Font = xui.CreateFontAwesome(30)
lbl.Text = Chr(0xF0AB)
lbl.TextColor = xui.Color_White
Base.AddView(lbl, Base.Width / 2 - 15dip, Base.Height - 40dip, 30dip, 30dip)
Sleep(1000)
lbl.SetVisibleAnimated(500, False)
Sleep(500)
lbl.RemoveViewFromParent
End Sub