Pues con estas sencillas 3 lineas (1 para cada cosa) podremos apagar, reiniciar o cerrar la sesion del ordenador.

Podeis meterlo dentro de un "_Click" o si es para joder dentro de un "_Load"

APAGAR:
Dim x As Integer = ExitWindowsEx(1, 0&) 'Apagar equipo

REINICIAR:
Dim x As Integer = ExitWindowsEx(2, 0&) 'Reiniciar equipo

CERRAR SESION:
Dim x As Integer = ExitWindowsEx(0, 0&) 'Cerrar sesión


si, falta la api

i puede ser de otra forma tambien ^^