Flat Button : improve this code ?

[eddy]

Code: Select all

#BS_FLAT=$8000
style.l = GetWindowLong_(*HelpBack, #GWL_STYLE) | #BS_FLAT
SetWindowLong_(*HelpBack, #GWL_STYLE,style)

I want to remove black borders which are left after style modification