cap 12 Sub AllOmbraDellUltimoSole(p as Pescatore) Dim Sorriso as Long Sorriso = CLng(Now) UltimoSole = True p.SolcoLungoIlViso = Int(Sorriso) p.Assopisci() End Sub