openconsole DEF w1 as WINDOW OPENWINDOW w1,0,0,350,350,@MINBOX|@MAXBOX|@SIZE,NULL,"Simple Window",&main CONTROL w1,@button,"1st",40,40,50,20,0,1 CONTROL w1,@button,"2nd",140,40,50,20,0,2 CONTROL w1,@edit,"3rd",240,40,50,20,0,3 WAITUNTIL w1 = 0 closeconsole END SUB main SELECT @MESSAGE CASE @IDCONTROL ? @CONTROLID,@WPARAM,@LPARAM,GETCONTROLHANDLE(w1,@CONTROLID) CASE @IDCLOSEWINDOW CLOSEWINDOW w1 ENDSELECT RETURN 0 ENDSUB