Windowsu yeniden başlatmak

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

Private Sub Command1_Click()
Dim c
c = MsgBox("Windows yeniden başlatmak istediğinize eminmisiniz", vbYesNo, "ReStart")
If c = vbYes Then c = ExitWindowsEx(42, 0)

End Sub