> >With This > .Column4.AddObject("spnQuantity", "Spinner") > .Column4.CurrentControl = "spnQuantity" > .Column4.spnQuantity.Visible = .T. > .Column4.spnQuantity.BorderStyle = 0 > .Column4.spnQuantity.SpecialEffect = 1 > .Column4.spnQuantity.Margin = 0 > .Column4.spnQuantity.SpinnerLowValue = 0 BINDEVENT(.Column4.spnQuantity,'InteractiveChange', Thisform,'ChangeButtonStatus') >EndWith > >>