global procedure IVDClassTileItems() begin WindowDeactivateField(CurWindow); ActivateTile(CurWindow,1); return; end;