[sads]

Imports System.ComponentModel

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        BackgroundWorker1.RunWorkerAsync()

    End Sub

    Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork

        CheckForIllegalCrossThreadCalls = False

        Dim ic As String

        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

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

                        ic = (aa(i) + aa(ii) + aa(iii) + aa(iiii))

                        Label1.Text = ic

                        ListBox1.Items.Add(ic)

                        If (aa(i) + aa(ii) + aa(iii) + aa(iiii)).ToString = TextBox1.Text Then Exit Sub

                    Next

                Next

            Next

            BackgroundWorker1.ReportProgress(i + 1)

        Next

    End Sub

    Private Sub BackgroundWorker1_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged

        ProgressBar1.Value = e.ProgressPercentage

    End Sub

  End Class

أخي ياريت توضيح لوظيفة الكود التالي لو سمحت

           BackgroundWorker1.ReportProgress(i + 1)