Calendar.Add(CreateListItem("14", "Settembre", "aaaa", "Street", Calendar.AsView.Width, 80dip), 35)
Calendar.Add(CreateListPrivacy(0), 0)
Sub CreateListPrivacy(Width As Int) As Panel
Dim p As Panel
p.Initialize("")
p.LoadLayout("privacy_item")
p.SetLayout(0, 0, 100%x, 40dip)
Return p
End Sub
Sub CreateListItem(Day As String, Month As String, Club As String, Address As String, Width As Int, Height As Int) As Panel
Dim p As Panel
p.Initialize("")
p.LoadLayout("calendar_item")
p.SetLayout(0, 0, Width, PanelDate.Height)
LabelDay.Text = Day
LabelMonth.Text = Month
LabelClub.Text = Club
LabelAddress.Text = Address
Return p
End Sub