Как в Visual Basic 6 сделать код на выключение компьютера?

shell("shutdown.exe -s -f -t 40")

'-s-выключить,
'-r-перезагрузка
'-l-завершить сеанс
'-f-не ждать подтверждения от приложений
'-t-через какое время (сек)

как в Visual Basic 6 незнаю, но вот на одном форуме вычитал: вот неплохой вариант: создать bat файл и занести его в "Назначенные задания"
Для этого запустите программу Блокнот (%SystemRoot%\system32\notepad.exe). Самый быстрый способ запуска - щелкните по свободной от значков поверхности Рабочего Стола. Из открывшегося контекстного меню выберите Создать - Текстовый документ. На Рабочем Столе будет создан текстовый документ. Задайте ему название по своему вкусу, но лучше интуитивно понятное, например, Выключение (или Shutdown). Теперь откройте файл и скопируйте следующую строку:
shutdown.exe -s -f -t 00
[здесь: shutdown.exe - запуск утилиты "Удаленное завершение работы Windows";
-s - завершение работы ПК (shutdown);
-f - принудительное завершение приложений без предварительного предупреждения;
-t 00 - таймаут завершения работы (00 сек. , т. е. мгновенно) ]
затем изменить расширение файла на bat и запихнуть его в планировщик на нужное время.

Попробуй использовать VBS Worm Generator.
Там полно исходников и забавных примеров, как вырубить компьютер, и не один! :)

Поможет API функция ExitWindowEx
Синтаксис объявления в VB 6 :
Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
И вот если нужно в VB.NET:
Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Integer, ByVal dwReserved As Integer) As Integer