HideCaret/ShowCaret

Case WM_CHAR

)Function UserInfoProc 

(hUserInfoWnd,uMsg,wParam,lParam,uIdSubclass,dwRefData

,lRes=DefSubclassProc(hUserInfoWnd

(uMsg,wParam,lParam

if uMsg =WM_SETFOCUS) '?maybe

HideCaret hUserInfoWnd

End if 

UserInfoProc=lRes