VB Creating A Program Questions

Objective: To create a program that will allow the end user to input a number in terms of minutes and then click start. Once start has been selected a timer will start counting down from the the number they put into the textbox and once that number reaches zero it will delay for 5 seconds and then power down the computer.
Comments: The last half of that is not as important as getting it to count down from a preselected number. I tried messing around with timers and threads and i just cant seem to get it... I would appreciate your help with this... also dont give me all of the answers, just point me in the right direction plz.

http://i67.photobucket.com/albums/h303/recruitor/ShutdownTimer.jpg

p.s. i attached a link to a pic of the form i made for the is program...

Objective: To create a program that will allow the end user to input a number in terms of minutes and then click start. Once start has been selected a timer will start counting down from the the number they put into the textbox and once that number reaches zero it will delay for 5 seconds and then power down the computer.
Comments: The last half of that is not as important as getting it to count down from a preselected number. I tried messing around with timers and threads and i just cant seem to get it... I would appreciate your help with this... also dont give me all of the answers, just point me in the right direction plz.

http://i67.photobucket.com/albums/h303/recruitor/ShutdownTimer.jpg

p.s. i attached a link to a pic of the form i made for the is program...

Interesting. Is this a college assignment?

dear for that use timer with interval of 1000 = 1 sec then decrement the no by one once its reached to 0 enable another timer in that timer after 5 seconds use following code

Expand|Select|Wrap|Line Numbers

1. 'In general section
2. Const EWX_LOGOFF = 0
3. Const EWX_SHUTDOWN = 1
4. Const EWX_REBOOT = 2
5. Const EWX_FORCE = 4
6. Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
7. Private Sub Form_Load()
8.     msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
9.     If msg = vbCancel Then End
10.     'reboot the computer
11.     ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
12. End Sub
13.  
14.