Напишите команду в Visual Basic 6.0 , чтобы через кнопку вырубить комп .

Создаёшь кнопку (CommandButton),кликаешь по ней 2 раза,и вставляешь туда вот такое между 'Private sub и End' : 
Shell("shutdown -s")

Пример: 
Private Sub Command_Click()
Shell("shutdown -s")
End Sub