Imports System.Diagnostics

'---------------------------------------------|
'System.Diagnostics                           |
'---------------------------------------------|
'El espacio de nombres System.Diagnostics     |
'proporciona clases que permiten interactuar  |
'con los procesos del sistema, registros de   |
'eventos y contadores de rendimiento.         |
'---------------------------------------------|

Public Class Form1

    Private Sub shutdown_s_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shutdown_s.Click
        '---------------------|
        'shutdown -s          |
        '---------------------|
        'Apagar el Equipo     |
        '---------------------|
        Process.Start("shutdown.exe", "-s")
    End Sub

    Private Sub shutdown_a_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles shutdown_a.Click
        '---------------------------------|
        'shutdown -a                      |
        '---------------------------------|
        'Anular el Apagado del Equipo     |
        '---------------------------------|
        Process.Start("shutdown.exe", "-a")
    End Sub

End Class