FoxPro/Visual FoxPro - codigo en visual basic para apagar el computador

Hola a todos la comunidad de programadores estoy diseñando un sistema , pero necesito saber como programar un boton para apagar el computador.
De ante mano les doy las gracias a todos aquellos que me pueden ayudar.

HOLA

ESPERO QUE ESTO TE SIRVA:

'--------------------------ESTO VA EN UN MODULO BAS----------------
'declaramos una constante y la api correspondiente.

Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

' -------------ESTO VA EN EL FORMULARIO

Private Sub Command1_Click()
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub

'----- si tienes elguna duda o necesitas saber algo mas mi correo es:
ricardo-suazo@hotmail.com