[FBI]

السلام عليكم جميعا

كود :

TextBox1.Text = imglist
        TextBox1.Text = TextBox1.Text.Replace("ttt", "")
        TextBox1.Text = TextBox1.Text.Replace("tttt", "")
        TextBox1.Text = TextBox1.Text.Replace("tttt", "")
        TextBox1.Text = TextBox1.Text.Replace("tttt", "")
        TextBox1.Text = TextBox1.Text.Replace("*#*#", vbNewLine)

        For Each ll In TextBox1.Lines
            listbox1.Items.Add(ll)
        Next
        For a As Integer = 0 To listbox1.Items.Count - 1
            listbox1.Items.Remove("")
        Next

        For Each i In ListBox1.Items
            ListView1.Items.Add(i, 0)

        Next

هذا الكود الي شي راسي وخلاني مجنون

عندي مشروعين مشروع اجرب عليه والثاني اطبق عليه
طبعا هذا الكود شغال 100%
لكن يشتغل بس في مشروع التجارب ثم اقوم بنسخه ولصقه في المشروع الي اشتغل عليه ولكن الكود لايعمل مع العلم اي شي تقريبا يخص الادوات مايعمل عليه اي كود

شرح الكود
ياخذ نص من متغير
يبدل بعضض الرموز ويخليها فارغه
يبدل رمز ويحط بدلاه سطر
ثم يحط جميع الاسطر الي في التكست بوكس الى ليست بوكس
ومن ثم يحذف العناصر الفارقه
واخيرا يحط عناصر اليست بوكس الي ليست فيو

أرجو المساعده