by P.Ganesh (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 27th June 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
some delay to the system for shutdown
API Declarations
Private Const EWX_SHUTDOWN As Long = 1
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
lblTime.Caption = Format(GetTickCount / 60000, "0") 'How long in windows in (seconds)
If Val(lblTime.Caption) = 80 Then
lngResult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End
End If
End Sub