Thanks Jayesh, this is working fine. But I have change it slightly.
In init of form I put :
DECLARE SHORT ExitWindowsEx IN Win32API;
SHORT uFlags, INTEGER dwReserved

then I have created a optiongroup containing 2 button i.e. Restart and shutdown and I set their tag 2 and 1 respectively. In each radio button of click event I put :
=ExitWindowsEx(val(this.tag),0)

It is really working nice, as I am looking for. This happen only because you provide me a basic solution.

Anyway thanks to all who will helped me.