آموزشی انتقال آیتم های لیست باکس به کمبوباکس

[ali.b]

سلام
زمانی که برحسب شرایط نیاز داشتهباشین تنها ایتم های لیست باکس به کمبوس باکس منتقل بشن و نمیخواین وقت زیادی برای کد نویسی تزریق کمبو باکس براساس محتوای لیستباکس انجام بدین

ComboBox4.Clear
ComboBox4.Font.Name = "B Nazanin"
For n = [COLOR=#ff0000]1[/COLOR] To ListBox1.ListCount - 1
ComboBox4.AddItem ListBox1.list(n, [COLOR=#0000cd]2[/COLOR])
Next n

اگر لیستباکس دارای عنوان نباشد به جای عدد 1 ، صفر وارد کنید
اگر لیستباکس دارای چند ستون باشد و فرض ستون 4 رانیاز دارید وارد کمبو شود عدد 2 را تغییر دهید