Obj1.New1(True)
Obj1.FromControl("Table1")
Obj1.Value = Obj1.GetProperty("Controls") ' Obj1 is a ControlCollection
Obj1.Value = Obj1.GetProperty2("Item",1) ' 0 is Hscrollbar, 1 is Vscrollbar, YMMV
Obj1.SetProperty("Width", Obj1.GetProperty("Width") * ScreenScaleY)