[asemshahen5]

PHP كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 100
        ProgressBar1.Minimum = 0
        ProgressBar1.Step = 1
        Dim newThread As New Thread(AddressOf start)
        If newThread.ThreadState = ThreadState.Running Then
            newThread.Suspend()
            newThread.Abort()
        End If
        newThread.Start()
    End Sub
    Sub start()
        Do
            If ProgressBar1.Value = 100 Then
                Exit Do
            ElseIf ProgressBar1.Value < 100 Then
                Application.DoEvents()
                Thread.Sleep(100)
                Invoke(Sub() ProgressBar1.Increment(+1))
            End If
        Loop
    End Sub