[Kian Tech]

مشكورين اخوتي وبالنسبة للمثال حين تجربته نجح 100 %

انا قمت بصناعة كود لنقل المحتوات ونجح (بدون ارتباط قواعد بيانات)

إقتباس :ListBox2.Items.Clear()
            ListBox1.SelectedIndex = -1

            Dim i As Integer
            Dim s4 As String

            For i = 0 To ListBox1.Items.Count - 1

                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
                s4 = ListBox1.Text
                ListBox2.Items.Add(s4)

            Next