lumns.ColumnTag(0) = "ASC") Then
           hdrColumns.ColumnTag(0) = "DESC"
       Else
           hdrColumns.ColumnTag(0) = "ASC"
       End If
       hdrColumns.ColumnImage(0) =
        ilsIcons.ListImages(hdrColumns.ColumnTag(lColumn)).Index - 1
   End If
   cboColumn_Click
End Sub

Private Sub hdrColumns_ColumnDblClick(lColumn As Long)
    Status "ColumnDblClick:" &amp; lColumn
End Sub


Private Sub hdrColumns_ColumnEndDrag(lColumn As Long, lOrder As Long)
   Status "ColumnEndDrag:" &amp; lColumn &amp;