End Sub

Private Sub Form_Load()
Dim i As Long
   
   cboIcon.AddItem "&lt;none&gt;"
   cboIcon.ItemData(cboIcon.NewIndex) = -1
   
   For i = 1 To ilsIcons.ListImages.Count
      cboIcon.AddItem i - 1
      cboIcon.ItemData(cboIcon.NewIndex) = i - 1
   Next i
   cboAlign.AddItem "Left"
   cboAlign.AddItem "Right"
   cboAlign.AddItem "Center"
   
   
   With hdrColumns
      .AutoHeight = True
      
      .ImageList = ilsIcons
      .AddColumn "Column1"
      .AddColumn "Column2", 128, HdrTextALignRight
  