dim i as long i = 16777215 while i > 0 list1.additem "#" & hex(i) i = i - 1 wend list1.additem "#000000"