listaeventos.Clear 'I CLEAR THE LIST FIRST
'FOR EACH HERE
i = i + 1 'THIS TO MAKE A PANEL WHITE AND BLACK LATER
If i > 1 Then i = 0
Private p As Panel
p.Initialize("p")
If i = 0 Then
listaeventos.Add(p,13%y,ID)
p.LoadLayout("listapreta")
lbtitulolistapreta.Text = NAME
lbdatalistapreta.Text = data.SubString2(8,10)&"/"& data.SubString2(5,7)
Else
listaeventos.Add(p,13%y,ID)
p.LoadLayout("listabranca")
lbtitulolistabranca.Text = NAME
lbdatalistabranca.Text = data.SubString2(8,10)&"/"& data.SubString2(5,7)
Next