... ::hWnd, WM_SETFOCUS ) if Set( _SET_INSERT ) DestroyCaret() CreateCaret( ::hWnd, 0, 6, ::nGetChrHeight() ) ShowCaret( ::hWnd ) endif else HideCaret( ::hWnd ) endif Super:GotFocus() ::SetColor(CLR_BLACK,CLR_YELLOW) return 0 //----------------------------------------------------------------------------//