Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte projekt aplikácie Visual Basic . Dvakrát kliknite na ovládací prvok Timer pridať Timer1 do projektu . Dvakrát kliknite na ovládací prvok Label pridať Label1 do formulára . Zmeniť vlastnosť sprístupniť ovládacieho prvku Timer1 na hodnotu true a vlastnosť Interval na 1000 
 2 
 Stlačte tlačidlo " F7 " otvorte okno kód a zadajte nasledujúci kód : . 
 
 Dim čas ako integer = 10 
 
 Tým sa vytvorí premennú a inicializuje ho 
 3 
 Otvorte podprogram Timer1_Tick a zadajte nasledujúci kód : . 
 
 Ak čas > 0 Then 
 
 time = čas - 1 
 
Label1.Text = čas