Userform ne pas mettre à jour correctement

Question

J'essaye de mettre à jour mon userform Updating (qui est essentiellement une barre de progression). Il n'est pas mis à jour pour le moment la première fois que l'utilisateur est appelé et la deuxième fois il met à jour la description de l'étiquette et non la largeur de la barre. Je le teste avec la procédure TestUpdate montrée ci-dessous.

Qu'est-ce que je fais mal?

Sub UpdateUpdatingUF(filenum As Integer, filecount As Integer) 
    Dim filenumdbl As Double 
    Dim filecountdbl As Double 
    Dim boxwidth As Integer 
    Dim barwidth As Integer 
    Dim boxwidthdbl As Double 
    filenumdbl = CDbl(filenum) 
    filecountdbl = CDbl(filecount) 
    boxwidthdbl = CDbl(boxwidth) 
    boxwidth = 300 
    barwidth = CInt(boxwidthdbl * filenumdbl/filecountdbl) 
    With Updating 
     .Label3.Caption = "Running file: " & CStr(filenum) & "/" & CStr(filecount) 
     .ProgressBar.Width = barwidth 
    End With 
End Sub 
Sub TestUpdate() 
    Updating.Show 
    Call UpdateUpdatingUF(3, 7) 
    DoEvents 
    Updating.Repaint 
End Sub 

Je suis conscient que je suis déclarant probablement beaucoup trop de variables, mais je suis en train de faire en sorte que ce n'est pas la cause.

Answer 1

Remplacer

Updating.Show 

avec

Updating.Show vbModeless