COMO FAZER PROGRESSBAR CONTAR 10 SEGUNDOS

KURTGU 03/06/2013 07:34:35
#424329 Resposta escolhida

Coloque uma label e um timer com valor de 1000 que equivale a um segundo....

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Me.lblCronometro.Text -= 1
Catch ex As Exception
MsgBox([Ô]ERRO[Ô], MsgBoxStyle.Critical)
End Try
If lblCronometro.Text = 0 Then
Timer1.Enabled = False
End If
End Sub

Private Sub frmCronometro_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Timer1.Enabled = True
End Sub