Días vividos

Private Sub Calendar1_Click()
Text2.Text = Calendar1
Text3 = Str(CDate(Label1) - CDate(Text2))
End Sub
Private Sub Command1_Click()
Dim item As String
item = UCase(Text1) + Space(5) + Label1 + Space(5) + Str(Calendar1) + Space(5) + Text3
List1.AddItem item
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Private Sub Form_Load()
Label1.Caption = Date
End Sub