     ,  _SUB
================================================================================

SLID [-right -left] [*] <SName>,<Shape>[,VInfo][,CMDParamName][,CMD][,Status]

*	 <SName>      
	  .
SName	 ,       
Shape	    : <L()T()W()H()>.
	 L, T, W  H   .
VInfo	[StartVal][:EndVal][:InitVal][:PageSize], - 0:100:0
		StartVal	 
		EndVal		 
		InitVal		 
Event	,    .     PeCMD
Status	: - , 0x10 , 0x40 , 0x80  
--------------------------------------------------------------------------------
       _SUB  _END (.   _SUB  CALL).
"ENVI @SName=ButtonTxt"     
"ENVI @SName.Enable=[#]Num"   : "0" ,
	"1" , "#"   
"ENVI @SLID??.Visible=Num"   : "0" , "-0" 
"ENVI @SName.VAL=[CurVal][:InitVal][:EndVal][:PageSize]"  VInfo
"ENVI @SName.VAL=?[CurValN][:InitValN][:EndValN][:PageSizeN]"  VInfo

******************************************************************[]*****
SLID SLID2, L32T108W300H54, 30:100:50, CALL OnSPIN1 %SLID2%, 0x40

ENVI^  ForceLocal=1
CALL @WIN1
_SUB WIN1,W364H166,Test,
    EDIT -vcenter -center EDIT1,L29T45W60H30,1,, //0x400
    SLID SLID1,L90T45W140H30,30:130:50,ENVI @EDIT1=%SLID1%,0x40  //USERCTRL
    ENVI @EDIT1=%SLID1%
_END