Visual Basic - cerrar windows xp

hola amigos, una duda nuevamente, estoy aprendiendo a manejar las API'S de windows y me dijeron que hay una para cerrar windows, no se si ustedes ya tiene mas experiencia, si alguien me puede ayuar con algun codigo o ejemplo para un boton donde yo pueda cerrar windows.

por sua tencion y tiemo dedicado gracias!!!!!

Sub CierraSistema()
Dim Retval As Variant
Retval = Shell("shutdown.exe -r -t 120", vbMaximizedFocus)
If MsgBox("¿Deseas detener el reinicio de tu sistema...(S/N)? ", _
vbCritical + vbYesNo, _
"Tu equipo se reinicirá en 2 minutos ") = vbYes Then
Retval = Shell("shutdown.exe -a")
MsgBox "He detenido el reinicio de tu sistema.", vbInformation, _
"Todo sigue normal"
End If

End Sub

Nota: El mérito es de D. Francisco García