>> да, действительно работает :)

А у меня - нет :(
Мож чего не так делаю ...

Вот:

forward
global type u_picturebutton from picturebutton
end type
end forward

global type u_picturebutton from picturebutton
integer width = 343
integer height = 196
integer textsize = -8
integer weight = 400
fontcharset fontcharset = russiancharset!
fontpitch fontpitch = variable!
fontfamily fontfamily = swiss!
string facename = "Arial CYR"
string text = "none"
boolean originalsize = true
alignment htextalign = left!
end type
global u_picturebutton u_picturebutton

type prototypes
private function long GetWindowLong( long h,long nIndex) library "user32.dll" alias for "GetWindowLongA"
private function long SetWindowLong( long h,long nIndex, long i) library "user32.dll" alias for "SetWindowLongA"


end prototypes
type variables
//#define BS_PUSHLIKE 0x00001000L
//#define BS_MULTILINE 0x00002000L
//#define BS_NOTIFY 0x00004000L
//#define BS_FLAT 0x00008000L

long BS_PUSHLIKE=4096 //0x00001000L
long GWL_STYLE=-16

end variables
event clicked;long ll_style

ll_style=GetWindowLong( handle(this), GWL_STYLE)
ll_style+=BS_PUSHLIKE
ll_style=SetWindowLong( handle(this), GWL_STYLE, ll_style)
this.setredraw(true)
return 0

end event

on u_picturebutton.create
end on

on u_picturebutton.destroy
end on