der.ListIndex = hdrColumns.ColumnIndex(lCol)
      cboIcon.ListIndex = hdrColumns.ColumnImage(lCol) + 1
      cboAlign.ListIndex = hdrColumns.ColumnTextAlign(lCol) And &amp;H3&amp;
      chkImage.Value = Abs(hdrColumns.ColumnImageOnRight(lCol))
      txtFilter.Text = hdrColumns.ColumnFilter(lCol)
      cboGroupOrder.Enabled = (hdrColumns.AllowGrouping)
      cboGroupOrder.Clear
      cboGroupOrder.AddItem "None"
      If (hdrColumns.AllowGrouping) Then
         For i = 1 To hdrColumns.ColumnGroupCount
     