B4J Question [B4X][XUI] xCustomlistview

Sub CreateListItem(datum As String, title As String, body As String, Width As Int, Height As Int) As Pane
    Dim p As Pane
    p.Initialize("")
    p.SetSize(Width,Height)
    p.LoadLayout("notificationlistitem")
    Dim xlblTitle As B4XView = lblTitle
    xlblTitle.Font = xui.CreateDefaultBoldFont(20)
    xlblTitle.Text = title
    Dim xlblBody As B4XView = lblBody
    xlblBody.Font = xui.CreateDefaultFont(xFont)
    xFont = xFont + 8
    xlblBody.Text = body
    Return p
End Sub

xlblBody.Font = xui.CreateDefaultFont(52)