Visual Basic - apagar el ordenador

Quisiera saber como se puede apagar el ordenador desde un boton en Visul Basic.

Esta es mi solucion
Apagar el ordenador:

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long,
ByVal dwReserved As Long) As Long

Public Sub ApagarPc()
Dim lResp as integer
lResp = ExitWindowsEx(1, 0&)
End Sub
NOTAS: el valor pasado a la funcion API puede tener los siguientes 3 valores:
0 = Reinicia Windows con nuevo usuario
1 = Apaga el equipo
2 = Reinicia el sistema

Pero apagar el ordenador en que Windows te puedo dar un codigo para apagarlo en windows 95/98/Me y otro que es mas largo para todos lso windows incluyendo NT.

Saludos