07-11-15, 05:46 PM
(آخر تعديل لهذه المشاركة : 07-11-15, 07:27 PM {2} بواسطة administrator.)
Private sub cmdAdd_click()
combo3.additem "ABC 001"
combo3.additem "ABC 002"
combo3.additem "ABC 003"
end sub
Private sub cmdremove_click()
combo3.reomveitem combo3.listindex(0)
combo3.reomveitem combo3.listindex(1)
combo3.reomveitem combo3.listindex(2)
end sub
combo3.additem "ABC 001"
combo3.additem "ABC 002"
combo3.additem "ABC 003"
end sub
Private sub cmdremove_click()
combo3.reomveitem combo3.listindex(0)
combo3.reomveitem combo3.listindex(1)
combo3.reomveitem combo3.listindex(2)
end sub