Truco de Visual Basic 6.0 - Apagar, reiniciar el ordenador

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

Private Sub Command1_Click()
Dim i as integer
i = ExitWindowsEx(1, 0&) 'Apagar
End Sub

Private Sub Command2_Click()
Dim i as integer
i = ExitWindowsEx(2, 0&) 'Reiniciar el Sistema
End Sub