[sads]

مشكور جداً أخي على المساعدة ، في الحقيقة كود رائع 
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"

لدي بعض التسؤولات البسيطة التي لاتصعب عليكم
1-هل من طريقة لحفظ الكود مباشرة داخل ملف txt ,وهل من طريقة لإيقاف وإستكمال الكود
2-تعديل الكود ليبدأ من قيمة وينتهي عند قيمة محددة مثل البدء من afb aac
3-كود بسيط لمعرفة النسبه المؤوية للعملية الجارية.
شاكر حسن تعاونكم ولكم كل الشكر.