DO CASE
CASE THIS.Value = 1
THISFORM.OleBoundControl1.autoformat(bartype,1)
CASE THIS.Value = 2
THISFORM.OleBoundControl1.autoformat(coltype,1)
OTHERWISE
THISFORM.OleBoundControl1.autoformat(pietype,7)
ENDCASE
este codigo te define de que tipo quieres la grafica de el control OLE