Выключение ПК по таймеру - Visual Basic .NET

Формулировка задачи:

Имеется следующая форма с элементами

                    Листинг программы
                
 
                        
                          
                    
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = Now.ToLongTimeString
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Label1.Text = Now.ToLongTimeString()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        DateTimePicker1.Value = DateAndTime.Now.AddMinutes(30)
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        DateTimePicker1.Value = DateAndTime.Now.AddMinutes(60)
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        DateTimePicker1.Value = DateAndTime.Now.AddMinutes(90)
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        DateTimePicker1.Value = DateAndTime.Now.AddMinutes(120)
    End Sub
End Class

Как осуществить выключение компьютера по заданному таймеру и вывести время которое осталось до отключения?

Решение задачи: «Выключение ПК по таймеру»

textual
                            Листинг программы 
                        
Label4.Text = Format(CType((DateTimePicker1.Value - DateTime.Now).ToString(), Date), "HH:mm:ss")