Probleme code

Bonjour,
Tout d'abbord je voulais beaucoup remercier jjsteing qui m'a beaucoup aider.
Mais je ne peut pas eternelement tout lui demander par MP sa serait abuser ^^
C'est pourquoi j'ai ouvert un sujet comme tout le monde.

J'ai un petit probleme, je ne maitrise pas encore les variables etc etc
Je voudrais faire un logiciel qui eteindre/redemarrera/fermera la session a x heure.

D'abbord une petite mage:

http://img508.imageshack.us/img508/8610/sanstitrekcn.png

Mon code en est la :

Public Class Form1
Dim confirm1
Dim confirm2
Dim confirm3

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("Shutdown -s -t 300")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("Shutdown -s -t 600")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Shell("Shutdown -s -t 900")
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Shell("Shutdown -s -t 1200")
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Shell("Shutdown -s -t 1500")
End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Shell("Shutdown -s -t 1800")
End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Shell("Shutdown -s -t 2100")
End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Shell("Shutdown -s -t 2400")
End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Shell("Shutdown -s -t 2700")
End Sub

Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Shell("Shutdown -s -t 3000")
End Sub

Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
Shell("Shutdown -s -t 3300")
End Sub

Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
Shell("Shutdown -s -t 3600")
End Sub

Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
Shell("Shutdown -s -t 3600")
End Sub

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
Shell("Shutdown -s -t 7200")
End Sub

Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
Shell("Shutdown -s -t 10800")
End Sub

Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Shell("Shutdown -s -t 14400")
End Sub

Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
Shell("Shutdown -s -t 18000")
End Sub

Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
Shell("Shutdown -s -t 21600")
End Sub

Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
Shell("Shutdown -s -t 25200")
End Sub

Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
Shell("Shutdown -s -t 28800")
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Shell("Shutdown -a")
End Sub

Private Sub btstop_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btstop.CheckedChanged
confirm1 = MsgBox("Etes vous sure de programmer l'Arret du PC ?", vbYesNo, "Confirmation")
Select Case confirm1
Case vbYes
btstop.Enabled = True
Case vbNo
End Select
Exit Sub
End Sub

Private Sub btrestart_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btrestart.CheckedChanged

confirm2 = MsgBox("tes vous sure de programmer le Redémarrage ?", vbYesNo, "Confirmation"))
Select Case confirm2
Case vbYes
btrestart.Enabled = True
Case vbNo
Exit Sub


End Select
End Sub

Private Sub btsess_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btsess.CheckedChanged

confirm3 = MsgBox("Etes vous sure de programmer La fermeture de Session", vbYesNo, "Confirmation"))
Select Case confirm3
Case vbYes
btsess.Enabled = True
Case vbNo
Exit Sub
End Select
End Sub
End Class


Je voudrais donc :

Si je clique sur le Radioboutton Eteindre et que je clique sur le boutton mettons 10 minutes qu'une fenetre aparaisse me proposant deux bouttons oui et non.
Si je clique sur oui, que le programme se réfère au shutdown -r -s et le temps de ce boutton. si je clique sur non exit sub.

Merci

Ps: j'aurais dut appliquer les bouttons indexé je n'y ai pas penser !