MIra parael apagado del pc puedes usar el shutDown que es muy practico y facil de usar:
Dim Ruta as string
Ruta="ShutDown -s"
Shell (Ruta)
y listo
si kiers los comandos que se pueden hacer con shutdown aki te los dejo
Uso: shutdown [-l | -s | -r | -a] [-f] [-m \\equipo] [-t xx] [-c "comentario"] [
-d up:xx:yy]
Sin argumentos Mostrar este mensaje (igual a -?)
-i Mostrar interfaz GUI, debe ser la primera opción
-l Cerrar sesión (no se puede usar con la opción -m)
-s Apagar el equipo
-r Apagar y reiniciar el equipo
-a Anular el apagado de equipo
-m \\equipo Equipo que se apagará/reiniciará/anulara
-t xx Establecer el tiempo de espera de apagado en xx segundos
-c "comentario" Comentario de apagado (máximo, 127 caracteres)
-f Fuerza el cierre de aplicaciones sin advertir
-d [ u ][p]:xx:yy Código de motivo de apagado u es el código de usuario p es el código de apagado planeado xx es el código primario del motivo de apagado (entero positivo menor que 256) yy es el código secundario del motivo de apagado (entero positivo menor que 65536)