例如: PRAVAT DECLARE FUNCTION EXITWINDOWEX LIB"USER32"(BYCAL UFLAGS AS LONG,BYVAL DWRESERVED AS LONG)AS LONG Const EXX_SHUTDOWN=2 PRINVAT SUB COMMAND1_CLICK() DIM X AS INTERGER MAGBOX "REALY?",VBOKCANLE,"LOOK THIS" IF VBOK THEN X=EXITWINDOWSEX(EWX_SHUTDOWN) END SUB