>DEFINE CLASS grd AS grid
>    columncount = 6
>    procedure init
>    	procedure init
>		FOR EACH oColumn IN this.Columns
>			* can bind props also
>			BindEvent(oColumn,'visible',this,'vischeck')
>		ENDFOR
>	endproc
>	
>	procedure visCheck
>		AEvents(aCol,0) && populate array w/ eventsource
>		with aCol[1]  	&& first element is eventsource obj
>			if .&aCol[2]. && 2nd element is bound PEM
>				.tag =  Transform(.Width)
>				.Width = 0
>			else
>				.Width = Val(.tag)
>			endif
>			this.scrollbars = this.scrollbars
>		endwith 	
>	endproc
>ENDDEFINE
>