[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
مدلل يادكتور تكرم عينك
بعد ان تضيف ماتريد من فحوصات في الليست بوكسرقم 4 وفي الثالثة الاسعار
الان نكتب كود حذف اي عنصر من التحاليل في الليست الرابعة بعد اختيارها سيتم حذف العنصر والسعر من الليست التي فيها الاسعار وهي الثالثة
طبعا لن يتم الحذف اذا لم تختار

كود :

 ' التراجع عن اضافة التحاليل
   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       Dim indx As Integer = ListBox4.SelectedIndex
       If ListBox4.SelectedItem <> Nothing Then
           ListBox4.Items.RemoveAt(indx)
           ListBox3.Items.RemoveAt(indx)
       End If
   End Sub