21-04-14, 06:31 PM
وعليكم السلام ورحمة الله وبركاته
تفضل أخي الكريم
وفقك الله
تفضل أخي الكريم
كود :
Dim Lst = (From Line In TextBox1.Lines Select Line Where Trim(Line) <> "").Distinct.ToArray
ListBox1.Items.AddRange(Lst)وفقك الله
