BARRE DE PROGRESSION SOFT ET AVEC CHANGEMENT DE COULEUR DU TEXTE À LA MONTÉE DE LA JAUGE

Sub Progression(ByVal Mode As String, cycle As Single) ' Mode est le texte affiché, cycle est le ratio de progression

        PbxNiveau.Width = PbxBarre.Width * cycle
        LblNiveau(0).Caption = Mode
        
        If cycle <= 1 Then ' on veille à n'afficher que des valeurs < 100 %
        LblNiveau(0).Caption = LblNiveau(0).Caption & " : " & CLng(cycle * 100) & "%"
        End If
        
        LblNiveau(1).Caption = LblNiveau(0).Caption
        PbxBarre.Refresh
        
   
End Sub