Visual Basic - Aplicacion Cierre de Sesion

Alguien conoce como se podría hacer una aplicación que hiciese un cierre de sesión en windownNT. Gracias

Espero te sirva de ayuda

'Declaracion para salir de windows

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

Dim i As Integer

i = ExitWindowsEx(1, 0&) 'Apaga el equipo
resultado = ExitWindowsEx(Accion, 0&)

i = ExitWindowsEx(2, 0&) 'Reinicia el Sistema
resultado = ExitWindowsEx(Accion, 0&)

i = ExitWindowsEx(3, 0&) 'cierra sesion
resultado = ExitWindowsEx(Accion, 0&)
''' Puedes consultar : www.allapi.net
Saludos LULA