xlsheet.Shapes.Item("BarCodeCtrl1").OLEF...