Pb code arrêt du PC

Bonjour,
je suis sous VB6 et W98
Dans une application j'ai une bouton arrêt PC:
Le code est le suivant :

Code:

---

1 2 3 4 5 6 7

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long Private Declare Function ExitWindows Lib "user32" (ByVal dwReserved As Long, ByVal uReturnCode As Long) As Long ___________________________________ Private Sub Command5_Click() ret = Shell("rundll32.exe user.exe, exitwindows") End Sub

---

J'ai le message :

Citation:

---

Erreur dans user.exe
Entrée manquante

---

je vois pas ou j'ai fait une erreur .
Merci de votre aide

Code:

---

1 2 3 4 5 6

Private Declare Function ExitWindows Lib "user32" alias "ExitWindowsEx" _ (ByVal uFlags as Long, ByVal dwReserved as Long) as Long   Private Sub Command5_Click() Ret = ExitWindows(0&, 0&) End Sub

---