... ex: aaaaaaaa, em vez de AAAAAAAA RESOLVIDO ASSIM, TGET: METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TGet ... case nMsg == WM_PASTE if GetFocus() == ::hWnd CallWindowProc( ::nOldProc, ::hWnd, WM_PASTE, 0, 0 ) if ValType( ::oGet:Original ) $ "CM" SetWindowText( ::hWnd, SubStr( ...