[elgokr]

تفضل اخى الحبيب الكود بصورة صحيحة

داخل حدث Form1_Load

ضع الكود التالى

كود :

       Dim values As List(Of String) = New List(Of String)()
       For Each ch1 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
           For Each ch2 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
               For Each ch3 In "ABCDEFGHIJKLMNOPQRSTUVWXYZ".ToCharArray()
                   values.Add(ch1.ToString() & ch2.ToString() & ch3.ToString())
               Next
           Next
       Next
       lstCombinations.DataSource = values
       lblCombinations.Text = values.Count & " combinations"

تذكر كل ما عليك وضع اداء lstCombinations

اى كانت هى والتى تاخذ اسم lstCombinations وبكده الكود سيعمل معك بدون اى مشكلة

تم عمل الكود ليعرض احرف من A الى Z

واذا كنت تريدها ارقام استخدم الكود التالى

كود :

       Dim values As List(Of String) = New List(Of String)()
       For ch1 = Asc("a") To Asc("z")
           For ch2 = Asc("a") To Asc("z")
               For ch3 = Asc("a") To Asc("z")
                   values.Add(ch1.ToString() & ch2.ToString() & ch3.ToString())
               Next
           Next
       Next
       lstCombinations.DataSource = values
       lblCombinations.Text = values.Count & " combinations"

تحياتى لك

وتمنياتى لك التوفيق