     .ItemData(.NewIndex) = 0
      .AddItem "Small Icons"
      .ItemData(.NewIndex) = 2
      .AddItem "List"
      .ItemData(.NewIndex) = 3
      .AddItem "Details"
      .ItemData(.NewIndex) = 1
      
      .ListIndex = 0
   End With
   
   With cboBorder
      .AddItem "None"
      .ItemData(.NewIndex) = 0
      .AddItem "Fixed Single"
      .ItemData(.NewIndex) = 1
      .AddItem "Thin"
      .ItemData(.NewIndex) = 2
      .ListIndex = 1
   End With

   With cboAppearance
      .AddItem "Flat"
      