[sads]

أخي لو سمحت أنت أوضحت لي من خلال هذا السطر القيمة المراد التوقف عندها 

'If (aa(i) + aa(ii) + aa(iii)).ToString = "aaz" Then Exit Sub

كيف لي أن أحدد القيمة التي أريد أن أبدأ بها

 Dim aa As String = "abcdefghijklmnopqrstuvwxyz"

       ProgressBar1.Minimum = 0

       ProgressBar1.Maximum = aa.Length

       For i As Integer = 0 To aa.Length - 1

           For ii As Integer = 0 To aa.Length - 1

               For iii As Integer = 0 To aa.Length - 1

                   ListBox1.Items.Add(aa(i) + aa(ii) + aa(iii))