Public Class Form1
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        If CheckBox1.Checked Then
            Timer1.Interval = Int(TextBox1.Text * 60000)
            Timer1.Start()
 
        End If
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Application.Exit()
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles ProgressBar1.Click
 
    End Sub
 
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e _
      As System.EventArgs) Handles CheckBox1.CheckedChanged
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value += 1
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
            MessageBox.Show("Der Computer wird nun Heruntergefahren.")
            Shell("C:\\Windows\System32\Shutdown.exe -s")
        End If
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class