Selamlar;
timer kullanarak geri sayım yaptırıyorum ve sure dolunca pc'nin kapanmasını (ya da seceneklere gore log off veya restart yapmasını) istiyorum. Kodları yazdım ancak bir sorun cıkıyor nedenini bulamadım bir turlu.

Kodlar şoyle :
************************************************** **
Public Class Form1
Dim saniye, dakika, saat As Integer
Dim sureDurdu As Boolean = True
************************************************** *****
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

saat = NumSaat.Value
dakika = NumDakika.Value
saniye = NumSaniye.Value
1: If saniye > 0 Then
saniye = saniye - 1
2: ElseIf dakika > 0 Then
dakika = dakika - 1
saniye = saniye + 60
GoTo 1
ElseIf saat > 0 Then
saat = saat - 1
dakika = dakika + 60
GoTo 2
Else
Timer1.Stop()
System.Diagnostics.Process.Start("Shutdown", "/l")
Exit Sub
End If
NumSaniye.Value = saniye
NumDakika.Value = dakika
NumSaat.Value = saat
End Sub
Sub radioButtonSecenekleri()
If rbShutDown.Checked Then
MsgBox("pc kapatılacak")
End If
If rbRestrart.Checked Then
'MsgBox("pc yeniden başlatılacak")
System.Diagnostics.Process.Start("Shutdown", "/r")
End If
If rbLogOff.Checked Then
'MsgBox("oturum kapatılacak")
System.Diagnostics.Process.Start("Shutdown", "/l")

End If

End Sub
************************************************** ************
Private Sub btnBaslat_Click(sender As Object, e As EventArgs) Handles btnBaslat.Click
sureDurdu = True
btnDurdur.Text = "Durdur"
Timer1.Start()
End Sub
************************************************** ****************
Private Sub btnDurdur_Click(sender As Object, e As EventArgs) Handles btnDurdur.Click
If sureDurdu Then
Timer1.Enabled = False
sureDurdu = False
btnDurdur.Text = "Devam Et"
Else
Timer1.Enabled = True
sureDurdu = True
btnDurdur.Text = "Durdur"
End If
End Sub
************************************************** **
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
NumSaat.Value = 0
NumDakika.Value = 0
NumSaniye.Value = 0
sureDurdu = True
btnDurdur.Text = "Durdur"
End Sub
End Class
************************************************** *

Form da şoyle :
http://i.hizliresim.com/1VQooN.jpg
__________________