Victor, Parace que el pintado de los iconos se realiza con la función ExtDrawIcon() Y hay un método METHOD ShowFocus( lFocused ) CLASS TIconGroup desde donde se llama a ExtDrawIcon() En concreto: ::aCoors[ nAt ] = ExtDrawIcon( hDC, ::aCoors[ nAt, 1 ], ::aCoors[ nAt, 2 ], ; ::aIcons[ nAt ], ...