Android Question B4XListTemplate Resize?

Private Sub Button1_Click
    Dim rs As Object = Dialog.ShowTemplate(ListTemplate, "OK", "", "CANCEL")
    AddFadingArrow(ListTemplate.mBase)
    Wait For (rs) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        Log(ListTemplate.SelectedItem)
    End If
End Sub

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