Visual Basic - API lanzar ventana de "salir de windows"

Necesito el codigo de una Api que lance la ventana de "salir de windows"... la que sale para apagar,reiniciar, suspender , etc.. el sistema.

Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal YourGuess As Long) As Long

Private Sub Command1_Click()
SHShutDownDialog 0 ' Abre el cuadro Apagar,reiniciar...,
End Sub

A mi me funciona en W98, creo que tambien funciona en los demas S.O espero que te sirva