Visual Basic - Como apagar el ordenador

Hola a Todos

me pueden ayudar en esto:

solo quiero que me digan el codigo que se tiene que poner para apagar la pc mediante un boton

Gracias de antemano

SE HACE ASI LUIS UNA LLAMADITA AL API Y YA.

Const EWX_LogOff As Long = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4
Private Declare Function ExitWindows _
Lib "User32" Alias "ExitWindowsEx" _
(ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

Private Sub Command1_Click()


ExitWindows EWX_SHUTDOWN, &HFFFFFFFF


End Sub

Private Sub Command2_Click()


ExitWindows EWX_REBOOT, &HFFFFFFFF


End Sub