Sub DB_Asporto_Carico_All(Lst As List)
If Lst.Size=0 Then Return
LstAsportoAperto.Clear
'This...
LstAsportoAperto=Lst
' This is OK
'Aggiungo in lista tav-asporto
For Each tv As ts_tav In Lst
LstAsportoAperto.Add(tv)
Next
Lst_AddAndOrderByTime
ULV_Carica
End Sub