MOVED LISTBOX COLUMN NUMBER(List Box1;oldPosition;newPosition)
GET LISTBOX ARRAYS(List Box1;aColNames;aHeaderNames;aColVars;aHeaderVars;aVis;aStyle)
colName:=aColNames{newPosition}
colVar:=aColVars{newPosition}
headerName:=aHeaderNames{newPosition}
headerVar:=aHeaderVars{newPosition}
$width:=Get listbox column width(*;headerName)
DELETE LISTBOX COLUMN(List Box1;newPosition;1)
INSERT LISTBOX COLUMN(List Box1;oldPosition;colName;colVar->;headerName;headerVar->)
BUTTON TEXT(headerVar->;headerName)
SET LISTBOX COLUMN WIDTH(*;headerName;$width)