Captura de Datos

Breve Descripción del Programa:

"Almacena la fecha de nacimiento de un grupo de personas, y muestra el nombre, fecha de nacimiento y años en vida"

Private Sub Calendar1_Click()
calend = Format(Calendar1.Day, "00") + "/" + Format(Calendar1.Month, "00") + "/" + Format(Calendar1.Year, "0000")
End Sub

Private Sub sacar_Click()
Dim item As String
item = UCase(Text1) + Label6 + Str(Calendar1) + Label7
List1.AddItem (Text1 + Space(8) + Label6 + Space(8) + Label7)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Label7_Click()
Label6 = Calendar1
dday = Str(CDate(Label9.Caption) - CDate(Label6.Caption))
End Sub

Private Sub Label9_Click()
fecha = Date
End Sub