• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Timer Progress Bar. It Display How Many Seconds Left .....

Timer Progress Bar. It Display How Many Seconds Left .....

Timer Progress Bar. It Display How Many Seconds Left .....

Rate Timer Progress Bar. It Display How Many Seconds Left .....

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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