Barra de progreso

[edbc92]

Mira esta es una idea de usar un progressbar, en realidad aún no lo utilizo mucho, pero hasta ahora en lo que he avanzado es esto..

Private Sub FrmProgressBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = False
Timer1.Interval = 100
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
pgbIniciar2.Value = pgbIniciar2.Value + 1
lblPorcentaje.Text = ((pgbIniciar2.Value * 100) / 100) & "%"
If pgbIniciar2.Value = 100 Then
Timer1.Enabled = False
End If
End Sub

Private Sub btnIniciar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciar2.Click
Timer1.Enabled = True
pgbIniciar2.Value = 0
End Sub

Private Sub btnIniciar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciar1.Click
Dim n As Integer = 100000
pgbIniciar1.Maximum = n
For n = 1 To pgbIniciar1.Maximum
pgbIniciar1.Value = n
Next
End Sub