For i = 0 To macchine.Size - 1
Try
Dim m As Map
m = macchine.Get(i)
Dim tl As TwoLines
tl.First = m.Get("data")
formatnumero = m.Get("totale")
gennaio = m.Get(0)
febbraio = m.Get(1)
marzo = m.Get(2)
grafico
tl.Second = formatnumero
ListView3.AddTwoLines2(tl.First, tl.Second, tl)
Next
Catch
Log(LastException.Message)
End Try
Next