GUI Program to Demonstrate Date difference and Date Add

Private Sub Command1_Click()
List1.AddItem ("now:" & Now)
List1.AddItem ("now+3years:" & DateAdd("yyyy", 3, Now))
List1.AddItem ("dys b/w now and 12/31/13" & DateDiff("d", Now, "12/31/13"))
List1.AddItem ("days b/w 1/1/13 and now" & DateDiff("d", "1/1/13", Now))
List1.AddItem ("days b/w 1/1/13 and 12/31/13:" & DateDiff("d", "1/1/13", "12/31/13"))
End Sub

Private Sub Command2_Click()
End
End Sub