[RESOLVED] How to play progress bar in reverse order

[funky22]

I have a progressbar with timer1, which is running from 1 to 100 with 15 point interval time of timer1.

i want to play the progress bar in reverse order i.e. from 100 to 1, how can i do it, plz help. thanks........

[RhinoBull]

Something like this may work for you:

Option Explicit

Private Sub Command1_Click()
    ProgressBar1.Value = ProgressBar1.Max
    ProgressBar1.Visible = True
    Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
    ProgressBar1.Max = 100
    ProgressBar1.Min = 1
    ProgressBar1.Scrolling = ccScrollingSmooth
    ProgressBar1.Visible = False
    Timer1.Enabled = False
    Timer1.Interval = 15
End Sub

Private Sub Timer1_Timer()
    ProgressBar1.Value = ProgressBar1.Value - ProgressBar1.Min
    If ProgressBar1.Value <= ProgressBar1.Min Then
        Timer1.Enabled = False
        ProgressBar1.Visible = False
    End If
End Sub

[funky22]

Hey thanks a lot........... code is working fine.......... thanks again......