       cboGroupOrder.AddItem i - 1
         Next i
         If (hdrColumns.ColumnIsGrouped(lCol)) Then
            cboGroupOrder.ListIndex = hdrColumns.ColumnGroupOrder(lCol) + 1
         Else
            cboGroupOrder.ListIndex = 0
         End If
      Else
         cboGroupOrder.ListIndex = 0
      End If
   End If
   
End Sub

Private Sub cboIcon_Click()
Dim lIcon As Long
   picIcon.Cls
   lIcon = cboIcon.ItemData(cboIcon.ListIndex)
   If (lIcon &gt; -1) Then
      ilsIcons.ListImages(lIcon + 1).Draw pi