(ASAP) Progressbar og ActiveX

Er det ikke på tide at lukke, ingen ser det mere.

Lav en Timer og en Progressbar, sæt interval på timeren til f.eks. 50 og lav en global variable bln. Denne progressbar kører både op og ned.

Dim bln as Boolean

Private Sub Timer1_Timer()
    If ProgressBar1.Value < ProgressBar1.Max And Not bln Then
            ProgressBar1.Value = ProgressBar1.Value + 1
    ElseIf ProgressBar1.Value = ProgressBar1.Max Then
        bln = True
    End If
   
    If bln And ProgressBar1.Value > ProgressBar1.Min Then
        ProgressBar1.Value = ProgressBar1.Value - 1
    ElseIf ProgressBar1.Value = ProgressBar1.Min Then
        bln = False
    End If
End Sub