Nt and shutdown

How can I shutdown NT from VB ? look that the classical way used for win9x do not work
thanks...

Code:

---

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

Private Sub Command1_Click()
    ExitWindowsEx 5, 0
End Sub

---