Sub CreateItem(str As String, str2 As String) As B4XView
Dim p As B4XView = xui.CreatePanel("")
p.SetLayoutAnimated(0, 0, 0, clv_main.AsView.Width, 18dip)
p.Color = Colors.Black
p.LoadLayout("item_main")
lblDateTime.Text = str
lblAlarm.Text = str2
Return p
End Sub