Private Sub AddFileItem (img As Bitmap, filename As String) As B4XView
Dim filelistpanel As Panel = xui.CreatePanel("FileListPanel")
filelistpanel.SetLayoutAnimated(0,0,0,100%x,60dip)
filelistpanel.LoadLayout("FileListItem")
FL_icon.Bitmap = img
Fl_label.Text = filename
End Sub