Silvio, at moment try this function ribbonbar() Local aRibbonMenu:={"Contabilità","Inventario","Utilità"} Local nHeightRib:=130 Local oGr1,oGr2,oGr3,oGr4,oGr5,oGr6,oGr7,oGr8,oGr9 Local nOption:= 1 Local nStart:= 0 Local oHand:= TCursor():New(,'HAND') ...