Muchas gracias Francisco Al final he optado por hacer una clases derivada de TBar siguiendo tus lineas CLASS TBarC FROM TBarCLASSDATA lRegistered AS LOGICAL DATA lBorderMETHOD New( oWnd, nBtnWidth, nBtnHeight, l3D, cMode, oCursor, l2007, l2010, l2013,; ...