[Mohamed20]

(20-07-16, 06:56 AM)LoveVb كتب : يمكنك حذف عنصر في ليست بوكس عبر اسمه او رقمه 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 عمليات