serial KeyCodesCNTs Default %Library.TMFormClass 0 %TMSpeedButton %TMBevel %Library.Boolean "False" %Library.TMForm %Library.String -1 %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMListBox initvalue:%String cache 0 %Status document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal cache 0 %Library.String document literal initvalue:%String cache 0 MApplication document literal List:%String cache 0 document literal initvalue:%String cache 0 %Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal (..lbSortList.Items.Count-2)) //laatste uit lijst (kan niet down) Do ..lbSortList.Items.Exchange(..lbSortList.ItemIndex,..lbSortList.ItemIndex+1) Set ..lbSortList.ItemIndex=..lbSortList.ItemIndex+1 ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form Bevel1 btnAnnuleren btnOk btnSortDown btnSortUp lbSortList Dragging OldIndex SpeedButton1 btnSortAlpha btnSortAlphaNum btnDefault btnAdvancedSort rMetaGroep rKenmerkToSort