Sub LoadOneRow(i As Int) As B4XView
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0 ,0,0,100%x, 180dip)
p.LoadLayout("OneRow")
Label1.Text = Label1.Text & " " & i
Label2.Text = "Hello xxxxxxxxxxxxxxxxxxx" & CRLF & "Next line of some annoucement text"
Dim myDt As Long = DateTime.Now
Label3.Text = DateUtils.GetDayOfWeekName(myDt) & ", " & DateUtils.GetMonthName(myDt) & " " & DateTime.GetDayOfMonth(myDt)
p.Tag = i
Return p
End Sub