powerbuilder resize

str_constant constants [] 
st_variable resizables []
constants =constant_array
resizables = variable_array
integer index_c,index_r 
/*
used to get all the graphical objects that are to remain at a relative similar position
as before resizing
*/
for index_c=1 to UpperBound(constants)
//	if constants[index_c].constant_ob.Typeof()  = CommandButton! Then
//		constants[index_c].constant_ob.move(constants[index_c].x,constants[index_c].y)
//		end if
//	constants[index_c].constant_ob.move(constants[index_c].x,constants[index_c].y)

	choose case typeOf(constants[index_c].constant_ob )
		case CommandButton!
			CommandButton cb
			cb=constants[index_c].constant_ob
			cb.move(constants[index_c].x,constants[index_c].y)
		case CheckBox!
			CheckBox chb
			chb=constants[index_c].constant_ob
			chb.move(constants[index_c].x,constants[index_c].y)
	end choose
next
/*
used to get all the graphical objects that are to be resized
*/
for index_r=1 to UpperBound(resizables)
//	if Typeof(resizables[index_r].variable_dw ) = datawindow! Then
//		resizables[index_r].variable_dw.resize(resizables[index_r].x,resizables[index_r].y)
//		end if
choose case typeOf(resizables[index_r].variable_ob)
	case DataWindow!
		DataWindow dw
		dw=resizables[index_r].variable_ob
		dw.resize(resizables[index_r].x,resizables[index_r].y)
		end choose
next
return 1