نقل قول نوشته شده توسط ASHKANLAEI مشاهده تاپیک
کد اینلاینش رو نتونستم بنویسم ولی این کد رو ببینین میشه؟
For Each element In dlgOpen.FileNames.Select(Function(f) IO.Path.GetFullPath(f)).ToArray

    If Me.lstListBox1.Items.Contains(element) Then

        Me.lstListBox1.Items.Add(element)

    End If

Next
فکر کنم شرط باید If Not باشه، If Not Me.lstListBox1.Items.Contains(element) Then