... ::hWnd, WM_SETFOCUS ) if Set( _SET_INSERT ) DestroyCaret() CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() ) ShowCaret( ::hWnd ) endif else HideCaret( ::hWnd ) endif Super:GotFocus() ::setcolor(nRGB(0,0,0),nRGB( 231,226,141)) // cuando toma el foco pone el fondo amarillo return 0