LOCAL loForm as Form 
loForm=NEWOBJECT('form1')
READ EVENTS 

DEFINE CLASS form1 AS form
	DoCreate = .T.
	Caption =  "Form1" 
	Name =  "Form1" 
	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  216 , ;
		Left =  276 , ;
		Height =  25 , ;
		Width =  85 , ;
		Caption =  "Lock" , ;
		Name =  "Command1" 
	PROCEDURE bin2int
		LPARAMETERS tcString as String 
		LOCAL i as Integer 
		LOCAL lnValue as Integer 
		lnValue= 0 
		FOR i=  1  TO  4 
			lnValue=lnValue+ASC(SUBSTR(tcString,i, 1 ))* 255 ^(i- 1 )
		ENDFOR 
		RETURN lnValue
	ENDPROC
	PROCEDURE Init
		DECLARE integer ClipCursor IN WIN32API string @ lpRect
		DECLARE integer GetClientRect IN WIN32API integer lhWnd, string @ lpRect
		DECLARE integer ClipCursor IN WIN32API as UnClipCursor integer
		DECLARE integer ClientToScreen IN WIN32API integer lhwnd, string @ lpPoint
		DECLARE integer OffsetRect IN WIN32API string @ pRect, integer x, integer y 
		this.Visible= .T. 
	ENDPROC
	PROCEDURE Unload
		=UnClipCursor( 0 )
		CLEAR DLLS 
		CLEAR EVENTS 
	ENDPROC
	PROCEDURE command1.Click
		IF this.Caption='Lock'
			this.Caption='Unlock'
			LOCAL lpRect as String 
			LOCAL lpPoint as String 
			LOCAL x as Integer 
			LOCAL y as Integer 
			lpRect=REPLICATE(CHR( 0 ), 16 )
			lpPoint=REPLICATE(CHR( 0 ), 8 )
			=GetClientRect(thisform.HWnd, @lpRect)
			=ClientToScreen(thisform.hwnd, @lpPoint)
			x=thisform.bin2int(LEFT(lpPoint, 4 ))
			y=thisform.bin2int(RIGHT(lpPoint, 4 ))
			=OffsetRect(@lpRect, x, y)
			=ClipCursor(@lpRect)
		ELSE
			this.Caption='Lock'
			=UnClipCursor( 0 )
		ENDIF 
	ENDPROC
ENDDEFINE

DECLARE integer GetFocus IN WIN32API 
thisform.hWnd=GetFocus()

DEFINE CLASS colorcomm AS form
	DoCreate = .T.
	Caption =  "Form1" 
	Name =  "Form1" 
	ADD OBJECT command1 AS commandbutton WITH ;
		Top =  204 , ;
		Left =  192 , ;
		Height =  25 , ;
		Width =  73 , ;
		Caption =  "Command1" , ;
		Name =  "Command1" 
	ADD OBJECT command2 AS commandbutton WITH ;
		Top =  204 , ;
		Left =  288 , ;
		Height =  25 , ;
		Width =  73 , ;
		Caption =  "Command2" , ;
		Name =  "Command2" 
	PROCEDURE command1.LostFocus
		this.ColorSource=  4  
	ENDPROC
	PROCEDURE command1.GotFocus
		this.ColorScheme=  1  
		this.ColorSource=  2  
	ENDPROC
	PROCEDURE command2.GotFocus
		this.ColorScheme=  1  
		this.ColorSource=  2  
	ENDPROC
	PROCEDURE command2.LostFocus
		this.ColorSource=  4  
	ENDPROC
ENDDEFINE

Без пробелов между квадратными скобками:
[ src ] Текст программы [ /src ]