Creare un Form ed inserire: Un Timer e 4 Label (La 1° Label per i giorni, la 2° per le ore, la 3° per i minuti e la 4° per i secondi).
Impostare le proprietà del Timer come nella figura sottostante:
Doppioclick sul Timer ed inserire questo codice:
CODICE
Dim giorno As New Date(2012, 12, 21, 00, 00, 0)
Dim giorni_rimanenti As TimeSpan
Dim adesso As Date = Now
giorni_rimanenti = giorno.Subtract(adesso)
Label1.Text = giorni_rimanenti.Days & " :"
Label2.Text = giorni_rimanenti.Hours & " :"
Label3.Text = giorni_rimanenti.Minutes & " :"
Label4.Text = giorni_rimanenti.Seconds
End Sub
Esempio
Countdown: 21 Dicembre 2012
Ultimi Tutorial