Code: Select all
...
.Nodes.Add Relative:=nodMonth, _
Relationship:=tvwChild, _
Text:=UCase(Format(DateSerial(ANNO, M, D), "dd/mm/yyyy")) & "-" & UCase(Format(DateSerial(ANNO, M, D), "dddd")), _
Image:=4
...