Jobs
Author: Gehan Fernando Date Submitted: 10/27/2006 Category: Forms Compatibility: .NET This code has been accessed 9085 times.
Email Yourself this snippet:
No declarations
Code
Dim LThen As Integer = 0 ProgressBar1.Value = 0 ProgressBar1.Maximum = 20 Do While ProgressBar1.Value < ProgressBar1.Maximum ProgressBar1.Value += 1 LThen = DateAndTime.Timer() Do While DateAndTime.Timer() < (LThen + 1) Me.Text = (ProgressBar1.Maximum - ProgressBar1.Value) & " Second(s) Left." Loop Loop