How can I use popupmenu?

[PaPi]

I did not see any example of POPUPMENU. And, I did not use it.  Help me!
PaPi

[Marco]

Hi,
can you get something with this:
kind regards


object f as form
 object m as  popupmenu
   object s as menuitem
     caption="sub1"
     onclick=clicked
   end object
   object s2 as menuitem
     caption="sub2"
     object s3 as menuitem
        caption="subsub3"
        onclick=clicked
     end object
   end object
 end object
end object
f.ShowModal

sub clicked(sender as menuitem)
   showmessage sender.caption+" clicked"
end sub