Public Class Form1
    Inherits System.Windows.Forms.Form
 
Private Sub btnApagar_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles btnApagar.Click
        'Declaramos la variable que usaremos como valor del proceso
        Dim ApagarComp As Process = New Process
        'Ejecutamos el proceso de apagado
        ApagarComp.Start("shutdown.exe", " -s -t 0 -f")
    End Sub
End Class