WITH Thisform.oListView *** Set up the icons to indicate Sort Order when you click on the column header .ColumnHeaderIcons = ThisForm.oHeaderIcons && this was set visually using the designer *** And set up the icons for the list items .Icons = Thisform.oIcons .SmallIcons = Thisform.oSmallIcons ENDWITH