[محمد اسماعيل]

السلام عليكم ورحمة الله 


لدي ليست بوكس 1 وليست بوكس 2 ولدي تيكست بوكس 

اريد الاتي عند وضع قيمة بالتيكست بوكس اذا كانت القيمة موجودة باليست بوكس 1 يتم نقل العناصر بدء من القيمة الموجودة الي اخر العناصر باليست واحد الي اليست 2


   

محاولتي ولم اصل لنتيجة 

كود :

  Private Sub BT_ADDITEM_Click(sender As Object, e As EventArgs) Handles BT_ADDITEM.Click
       'كود اضافة العناصر
       For i As Integer = 0 To 20
           ListBox1.Items.Add("good" & i)
       Next
   End Sub

   Private Sub BT_ITEMFOUND_Click(sender As Object, e As EventArgs) Handles BT_ITEMFOUND.Click
       Dim foo As String
       Dim index As Integer = 0
       foo = TextBox1.Text
       ListBox2.Items.Clear()
       'كود البحث وتحديد عنصر ونقل القيمة المساوية والاكبر الي اليست 2
       For i = 0 To ListBox1.Items.Count - 1
           If ListBox1.Items(i).ToString = foo Then
               index = i
           End If
           If i >= index Then
               ListBox2.Items.Add(ListBox1.Items(i).ToString)
           End If
       Next
       'MsgBox(index)
   End Sub