dex
         .ColumnIndex(lCol) = cboOrder.ItemData(cboOrder.ListIndex)
         .ColumnImageOnRight(lCol) = (chkImage.Value = Checked)
         .ColumnFilter(lCol) = txtFilter.Text
         If (.AllowGrouping) Then
            If (cboGroupOrder.ListIndex &gt; 0) Then
               .ColumnGroupOrder(lCol) = cboGroupOrder.ListIndex - 1
            Else
               ' not grouped
               .ColumnIsGrouped(lCol) = False
            End If
         End If
      End With
      cboColumn_Click
   End If
