Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BT1.Click
LBL2.Text = ProgressBar1.Value & "%"
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ProgressBar1.Minimum = 0
ProgressBar1.Maximum = 100
ProgressBar1.Value = 0
For i = 0 To 100
If ProgressBar1.Value < ProgressBar1.Maximum Then
ProgressBar1.Value += 1
System.Threading.Thread.Sleep(50)
End If
Next
End Sub
مشكلتي ProgressBar1 أن تكون سريعة و لا أستطيع إيقافها.فما أريده عند ضغط على arreter تتوقف ProgressBar1