Hi Anatoliy,

Any idea why this isn't changing the size of the text edit control on the screen?

CLEAR

lnhandle=GEThandle()
?lnhandle

DECLARE INTEGER CreateCaret IN user32;
	INTEGER hwnd,;
	INTEGER hBitmap,;
	INTEGER nWidth,;
	INTEGER nHeight

iok=CreateCaret(@lnhandle,0,3,100)

DECLARE INTEGER ShowCaret IN user32 ;
	INTEGER hwnd
	
iok2=ShowCaret(@lnhandle)
	
ACTIVATE SCREEN
myans=.f.
@5,1 sAY "Is this correct the correct caret size?" GET myans PICTURE "Y"
READ
RETURN


FUNCTION GEThandle
DECLARE INTEGER FindWindow in Win32API as FindWindow STRING, STRING
lnhand=FindWindow(0,'Policy Profiler 32')	&& app titlebar
IF lnhand=0
	lnhand=FindWindow(0,VERSION())	&& my development mode title bar
ENDIF
CLEAR DLLS "FindWindow"
RETURN lnhand