*Метод MouseLeave нужного объекта
If nButton = 0 	&& Кнопки мыши не нажаты
	Local lnDelta
	lnDelta = 2 	&& Как правило, это ширина рамки объекта
	
	Do case
	Case Between(nXCoord,this.Left-lnDelta,this.Left+lnDelta) ;
		or Between(nXCoord,this.Left+this.Width-lnDelta,this.Left+this.Width+lnDelta)
		
		this.MousePointer = 9 	&& горизонтальные стрелки
		
	Case Between(nYCoord,this.Top-lnDelta,this.Top+lnDelta) ;
		or Between(nYCoord,this.Top+this.Height-lnDelta,this.Top+this.Height+lnDelta) 
		
		this.MousePointer = 7 	&& вертикальные стрелки

	Otherwise

		this.MousePointer = 0

	endcase
	
EndIf