Sub CreateListItem(Item As SinglePassword) As B4XView
Dim p As B4XView = xui.CreatePanel("Row")
#if B4J
p.SetLayoutAnimated(0 ,0,0,600,30dip) 'how to use 100%x ???
#Else If B4A
p.SetLayoutAnimated(0 ,0,0,100%x,30dip)
#End If
p.LoadLayout("Row")
LabelColumn1.Text = Item.Name
LabelColumn2.Text = Item.User
LabelColumn3.Text = Item.Mail
LabelColumn4.Text = Item.Url
Return p
End Sub