gestione date e ore con visual basic

scrivere data e ora, poi attivare

Private Sub CommandButton1_Click()
Dim anno As Date
Dim anno1 As Date
Dim tempo As Date
Dim tempo1 As Date

'(tempo da tastiera ore:minuti:secondi)
tempo = TextBox1.Text
ListBox1.AddItem (tempo)
ListBox1.AddItem (Hour(tempo))
ListBox1.AddItem (Minute(tempo))
ListBox1.AddItem (Second(tempo))

'(tempo da codice in programma #ore:minuti:secondi#)
tempo1 = #2:30:00 PM#
ListBox1.AddItem (tempo1)
ListBox1.AddItem (Hour(tempo1))
ListBox1.AddItem (Minute(tempo1))
ListBox1.AddItem (Second(tempo1))
'(tempo da codice con funzione Timeserial(ore,minuti,secondi)
ListBox1.AddItem (TimeSerial(9, 30, 45))
ListBox1.AddItem (Hour(TimeSerial(9, 30, 45)))
ListBox1.AddItem (Minute(TimeSerial(9, 30, 45)))
ListBox1.AddItem (Second(TimeSerial(9, 30, 45)))
'(data inserita da tastiera 12/25/1987 )
anno1 = TextBox2.Text
ListBox1.AddItem (anno1)
ListBox1.AddItem (Year(anno1))
ListBox1.AddItem (Month(anno1))
ListBox1.AddItem (Day(anno1))
'(data inserita da variabile e codice #12/25/1988#)
anno = #12/12/1988#
ListBox1.AddItem (anno)
ListBox1.AddItem (Year(anno))
ListBox1.AddItem (Month(anno))
ListBox1.AddItem (Day(anno))
'(data inserita da codice #12/25/1998#)
ListBox1.AddItem (#12/25/1998#)
ListBox1.AddItem (Year(#12/25/1998#))
ListBox1.AddItem (Month(#12/25/1998#))
ListBox1.AddItem (Day(#12/25/1998#))
'(data inserita da codice con funzione dateserial(anno,mese,giorno))
ListBox1.AddItem (DateSerial(1998, 12, 25))
ListBox1.AddItem (Year(DateSerial(1998, 12, 25)))
ListBox1.AddItem (Month(DateSerial(1998, 12, 25)))
ListBox1.AddItem (Day(DateSerial(1998, 12, 25)))

End Sub