LPARAMETERS nKeyCode, nShiftAltCtrl
DO CASE
	CASE BETWEEN(nKeyCode, 97 , 122 ) &&мал. буквы;
		OR BETWEEN(nKeyCode, 65 , 90 )&&бол. буквы;
		OR BETWEEN(nKeyCode, 48 , 57 )&&цифры
		mypassword=mypassword+CHR(nKeyCode)
		DODEFAULT( 42 , nShiftAltCtrl)
		NODEFAULT
	CASE nkeycode= 7  OR nkeycode= 127  OR nkeycode= 4  OR nkeycode= 19  OR 
                     nkeycode= 13  OR nkeycode= 9  &&backspc,left,right,enter,tab
	        DODEFAULT()
                     NODEFAULT
	CASE nkeycode= 27 &&ESC
		mypassword=''
		this.Value=''
	OTHERWISE 
		NODEFAULT 
ENDCASE