Quote Originally Posted by Static
VB Code:
  1. 'Generalized
  2. For x = 0 To Combo1.ListCount - 1
  3.         Combo2.AddItem Combo1.List(x)
  4.         Combo2.ItemData(Combo2.NewIndex) = Combo1.ItemData(x)
  5.     Next

Hi Static
The code run fine thank you very much