CREATE CURSOR crsZoom (val c( 20 ), zoom N( 3 , 0 ))

INSERT INTO crsZoom values('400%',  400 )
INSERT INTO crsZoom values('300%',  300 )
INSERT INTO crsZoom values('200%',  200 )
INSERT INTO crsZoom values('150%',  150 )
INSERT INTO crsZoom values('100%',  100 )
INSERT INTO crsZoom values('75%',  75 )
INSERT INTO crsZoom values('50%',  50 )
INSERT INTO crsZoom values('25%',  25 )
INSERT INTO crsZoom values('по ширине',  1 )
INSERT INTO crsZoom values('вся страница',  2 )

this.cmbZoom.BoundColumn= 2 
this.cmbZoom.RowSourceType= 2 
this.cmbZoom.RowSource='crsZoom'

DO CASE 
		CASE TYPE('this.value')='C'
			lnZoom=VAL(this.value)
		CASE TYPE('this.value')='N'
			lnZoom=this.value	
		OTHERWISE 
			lnZoom= 1 	
	ENDCASE 

	IF INLIST(lnZoom, 400 , 300 , 200 , 150 , 100 , 75 , 50 , 25 , 2 , 1 )
		thisform.preview.Zoom(lnZoom)
	ELSE 
		IF TYPE('VAL(this.Text)')='N'
			DO CASE 
				CASE VAL(this.Text)> 400  
					this.value= 400 
					this.DisplayValue='400%'
				CASE VAL(this.Text)< 25 
					this.value= 25 
					this.DisplayValue='25%'
			ENDCASE 			
			thisform.preview.Zoom(VAL(this.Text))
		ENDIF 	
	ENDIF 	

IF nKeyCode= 13 
...
ENDIF