pitit prog tout facile

declare sub btn_click

create form as qform
caption = "demo"
center
create button as qbutton
caption = "message"
onclick = btn_click
end create
showmodal
end create

sub btn_click
showmessage "coucou"
end sub