    .AddColumn "Column3"
      .AddColumn "Column4"
      .AddColumn "Column5"
       
      BuildLists
      
      hdrColumns_ColumnClick 0
      
      .ColumnImageOnRight(1) = True
   End With
    
End Sub
Private Sub BuildLists()
Dim iCol As Long
   cboColumn.Clear
   cboOrder.Clear
   For iCol = 1 To hdrColumns.ColumnCount
      cboColumn.AddItem hdrColumns.ColumnHeader(iCol - 1)
      cboColumn.ItemData(cboColumn.NewIndex) = iCol - 1
      cboOrder.AddItem iCol
      cboOrder.ItemData(cboOrder.NewInd