نقل قول نوشته شده توسط farshidshd مشاهده تاپیک
سلام
من در vb6 یه لیست باکس1 دارم که میخوام اعداد بزرگتر از 10 موجود در اون رو جدا کنه و هر عددی که بزرگتر از 10 بود رو منهای 10 کنه و نتیجه رو به طور جداگانه در لیست باکس2 نشون بده و بعد تمام اعداد بدست آمده در لیست2 رو جمع کنه
باید چطوری کدشو بنویسم؟

ممنون
    Dim i&





    With List1





        For i = 0 To .ListCount - 1





            If .List(i) > 10 Then List2.AddItem .List(i) - 10





        Next





    End With