首先，在module文件中加入下列声明语句：
DeclareFunction ExitWindows Lib＂User＂（ByValdw
ReturnCodeAsLong，ByValwRe？servedAsInteger）AsInteger
PublicConstEW—REBOOTSYSTEM=&H43
PublicConstEW—RESTARTWINDOWS=&H42
然后，在Form中加入一个CommandButton控件，在它的Click事件中加入下列代码：
DimRetAsInteger
RetΚExitWindows（EW—RESTARTWINDOWS，0）
……
程序运行后，只要按下该CommandButton控件，Windows系统便会重新启动。若将上述代码改为：Ret=ExitWindows（EW—REBOOTSYSTEM，0），则将重新启动计算机系统。
