why don't update ToolStripLabel1.Text
when use ToolStripProgressBar
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ToolStripProgressBar1.Minimum = 0
ToolStripProgressBar1.Maximum = 200
ToolStripProgressBar1.Value = 0
ToolStripProgressBar1.Step = 1
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnt As Long
For cnt = 1 To 200
If ToolStripProgressBar1.Value < 200 Then
Debug.Print(cnt)
ToolStripProgressBar1.Value = cnt
ToolStripProgressBar1.PerformStep()
ToolStripLabel1.Text = cnt
Else
ToolStripProgressBar1.Value = 0
End If
Next
End Sub
End Class