Ждущий и спящий режимы

[ZeroX]

Народ подскажите кто нить, как перевести на VB винды в спящий или ждущий режим. Заранее благодарен

[FaKk2]

Private Declare Function SetSuspendState Lib "Powrprof" (ByVal Hibernate As Long, ByVal ForceCritical As Long, ByVal DisableWakeEvent As Long) As Long
Private Sub Form_Load()
'KPD-Team 2001
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@allapi.net
'start hibernating, but don't force it and don't disable all wake events
SetSuspendState 1, 0, 0
End Sub