Visual Basic - Reiniciar Windows

hola...
necesito urgente el codigo
para reiniciar windows 98 desde visual
gracias...

Primero en un module debes declarar lo siguiente

Public Const shrsRebootSystem = 2

Declare Function SHRestartSystemMB Lib "shell32" Alias "#59" (ByVal hOwner As Long, ByVal sPrompt As String, ByVal uFlags As Long) As Long


luegos en algun boton debes poner lo siguiente

If SHRestartSystemMB(hWnd, sPrompt, shrsRebootSystem ) = bYes Then
msgbox "Adios"
End If

donde sprompt es el texto que aparesca antes de apagar

suerte

JK

Si quieres que al efectuar determinada acción se reinicie Windows sin más comentarios, usa la función "ExitWindowsEx" de la API. Visita la página siguiente para saber cómo utilizar esta función:

http://www.vbapi.com/ref/e/exitwindowsex.html


Si lo que quieres, sin embargo, es que al efectuar dicha acción te aparezca el mismo cuadro de diálogo "Reiniciar, Apagar equipo, Salir a MS-DOS... etc" que cuando le das al Botón de Inicio de la Barra de Tareas, la función API que deberás usar es "ExitWindowsDialog", cuya descripción podrás encontrar en la página siguiente:

http://www.vbapi.com/ref/e/exitwindowsdialog.html