autodefine "off"

$include "windowssdk.inc"

WINDOW win

ENUM win_const
	STATIC1 = 100
	STATIC2
	STATIC3
	STATIC4
	STATIC5
	STATIC6
	BUTTON1
	BUTTON2
ENDENUM

OpenWindow win,0,0,424,320,@CAPTION|@SYSMENU|@MINBOX,0,"Form1",&win_handler
	CONTROL win,@STATIC,"0",32,10,360,25,0,STATIC1
	CONTROL win,@STATIC,"@SS_LEFT",32,45,360,25,@SS_LEFT,STATIC2
	CONTROL win,@STATIC,"@SS_SIMPLE",32,80,360,25,0xB,STATIC3
	CONTROL win,@STATIC,"@DISABLE|@SS_LEFT",32,115,360,25,@DISABLE|@SS_LEFT,STATIC4
	CONTROL win,@STATIC,"@SS_CENTER",32,150,360,25,@SS_CENTER,STATIC5
	CONTROL win,@STATIC,"@SS_RIGHT",32,185,360,25,@SS_RIGHT,STATIC6
	CONTROL win,@BUTTON,"Test",62,240,100,25,0,BUTTON1
	CONTROL win,@BUTTON,"Exit",262,240,100,25,0,BUTTON2
	SETCONTROLCOLOR win,BUTTON1,RGB(5,255,5),GetSysColor(15)

WAITUNTIL ISWINDOWCLOSED(win)
	END

SUB win_handler(),INT
	SELECT @MESSAGE
CASE @IDCREATE
	CENTERWINDOW win
CASE @IDCLOSEWINDOW
	CLOSEWINDOW win
CASE @IDCONTROL
	SELECT @CONTROLID
CASE BUTTON1 'Test
	SETCONTROLTEXT win,STATIC1,"4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y"
	SETCONTROLTEXT win,STATIC2,"4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y"
	SETCONTROLTEXT win,STATIC3,"4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y"
	SETCONTROLTEXT win,STATIC4,"4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y"
	SETCONTROLTEXT win,STATIC5,"4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y"
	SETCONTROLTEXT win,STATIC6,"4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y4y"
	SETCONTROLCOLOR win,BUTTON1,RGB(255,0,0),GetSysColor(15)
CASE BUTTON2 'Exit
	CLOSEWINDOW win
ENDSELECT
ENDSELECT
RETURN 0
ENDSUB