$INCLUDE "windowssdk.inc"
WINDOW w1
CONST InSubName = 10
CONST InSubNameStatic = 20

OPENWINDOW w1,0,0,330,180,@MINBOX|@MAXBOX|@SIZE|@CAPTION,0,"Window",&handler

			  CONTROL w1,@CHECKBOX,"",100,50,20,25,0,InSubName
						 SETCONTROLCOLOR w1,InSubName,rgb(0,0,0),rgb(255,255,255)
						 SETFONT w1,"Arial",11,400,0,InSubName

		     CONTROL w1,@STATIC,"In Subroutine",120,53,150,25,SS_NOTIFY,InSubNameStatic
			          SETCONTROLCOLOR w1,InSubNameStatic,rgb(0,0,0),rgb(255,255,255)
			          SETFONT w1,"Arial",12,400,0,InSubNameStatic

WAITUNTIL ISWINDOWCLOSED(w1)

SUB handler(),INT
    SELECT @MESSAGE
           CASE @IDCREATE
                CENTERWINDOW w1

           CASE @IDCLOSEWINDOW
                CLOSEWINDOW w1

           CASE @IDCONTROL
                SELECT @CONTROLID
                       CASE InSubName
                            IF @NOTIFYCODE = 0
                               if getstate(w1,InSubName) = 1
                                  'Do this....
                               else
                                  'Do that....
                               endif 
                            ENDIF

                       CASE InSubNameStatic
                            IF @NOTIFYCODE = 0
                               SENDMESSAGE(w1,BM_CLICK,0,0,InSubName)
                            ENDIF

                ENDSELECT
    ENDSELECT
RETURN 0
ENDSUB