Amigos
Boa tarde
Possuo um barra de progresso que ao clicar no OK ela percorre....
(se não me engano peguei ate aqui mesmo esse exemplo....)
Porem gostaria que ao Chegar a 100% ela fechasse sozinha...
O código que uso é:
Private Sub CommandButton1_Click()
lin = 1
ProgressBar1.Min = 1
ProgressBar1.Max = 10000
Do Until lin = 10000
lin = lin + 1
ProgressBar1.Value = lin
Percent = lin / 10000
StatusBar1.Panels(1) = FormatNumber(Percent, 2) * 100 & "%"
Loop
End Sub
Abraços e obrigado pela ajuda
Postado : 31/07/2012 2:18 pm