... Input DestroyCaret() If( Set( _SET_INSERT ), CreateCaret( ::hWnd, 0, 5, ::nGetChrHeight()-1 ),; CreateCaret( ::hWnd, 0, 2, ::nGetChrHeight()-1 ) ) ShowCaret( ::hWnd ) endif if ::bChange != nil lAccept = Eval( ::bChange, nKey, nFlags, Self ) if ValType( lAccept ) == "L" .and. ! lAccept return 0 ...