Private Declare Function SetSystemPowerState Lib "kernel32" _
(ByVal fSuspend As Long, ByVal fForce As Long) As Long

Private Sub Command1_Click()
SetSystemPowerState 1, 0
End Sub