[[ Very late reply, but this might help others
]]
You can use Shell
(1) To Standby :
Code: vb
Shell("%windir%\System32\rundll32.exe powrprof.dll,SetSuspendState")
(2) To Hibernate :
Code: vb
Shell("%windir%\System32\rundll32.exe powrprof.dll,SetSuspendState Hibernate")