[Mohamed20]

السلام عليكم 

سؤالى هو هل يمكن تبديل او مسح حروف من التكست بوكس عندى ليست بوكس  به هذا الكلام  1H2o.level of water 50%
2H2o.level of water 40%
3Fe.Weight iron 80
كيف يمكن مسح مثلآ H2o.level of water 50% الناتج يكون 1 H2o.level of water 40% الناتج يكون 2 Fe.Weight iron 80 الناتج يكون 3

[LoveVb]

يمكنك حذف عنصر في ليست بوكس عبر اسمه او رقمه Index
عبر اسمه : Listbox1.items.remove("Name")
عبر رقمه : Listbox1.items.removeat(0)
العد يبدا من 0
اذا كنت تريد حذف العنصر الاخير تضع بداخل الاقواس مجموعه العناصر - 1
Listbox1.items.count - 1

[Mohamed20]

يمكنك حذف عنصر في ليست بوكس عبر اسمه او رقمه Index
عبر اسمه : Listbox1.items.remove("Name")
عبر رقمه :  Listbox1.items.removeat(0)
العد يبدا من 0
اذا كنت تريد حذف العنصر الاخير تضع بداخل الاقواس مجموعه العناصر - 1
Listbox1.items.count - 1

شكرآ اخى تم تعديل العنوان الى تكست بوكس 

انا جربت هذه الطريقة 

كود :

       Dim o As Object = CreateObject("ScriptControl")
           o.Language = "VBScript"
           Dim a As String = TextBox1.Text.Replace(TextBox1.Text.Substring(3, TextBox1.Text.Length - 3), "")
           Dim b As String = a.Replace("H2", "+0")
           TextBox2.Text = " مجموع العمليات" & o.Eval(b)
           o = Nothing

لاحصل على مجموع العمليات لاكن لا اعلم لماذا لا يحسب الى اخر عملية تم ادخالها يفترض ان يكون المجوع الكلى 6 عمليات

[LoveVb]

اتمنى التوضيح اكثر
هذا النص سيكون في تكست بوكس 1
H2o.level of water 50%
H2o.level of water 40%
Fe.Weight iron 80
صحيح؟
والناتج في تكست بوكس 2 ماذا سيكون؟

[الوادي]

فعلا الموضوع غير واضح.

[mervandzz]

مفهمت كويس شو بتريد بس لو عاوز تغير زي المثال دا رايح ابعثلك السورس