Hi experts,

I have this simple code when the user click a button on a multipage userform;

Private Sub but_bereken_alles_Click()
lbl_momentje.Visible = True
maxstaffelbepaling
budget_neutraal_berekenen_franchise
nieuwe_eb_vullen
MultiPage1.Value = 3
lbl_momentje.Visible = False
End Sub

It should have the label lbl_momentje appear when the button is clicked
because all the sub that have to be calculated take about 6-7 seconds to
complete.
However, it first does the sub 'maxstaffelbepaling' and then it shows the
label.

Does anyone of you have a solution please ? I want to show the label first
and then execute the subs..
Thanks,
Pierre


--
Message posted via http://www.officekb.com

Try DoEvents after making the label visible.

Met vriendelijke groet,

Rody


"Pierre via OfficeKB.com" <u13950@uwe schreef in bericht
news:567a21d2d1c2d@uwe...
Hi experts,

I have this simple code when the user click a button on a multipage
userform;

Private Sub but_bereken_alles_Click()
lbl_momentje.Visible = True
maxstaffelbepaling
budget_neutraal_berekenen_franchise
nieuwe_eb_vullen
MultiPage1.Value = 3
lbl_momentje.Visible = False
End Sub

It should have the label lbl_momentje appear when the button is clicked
because all the sub that have to be calculated take about 6-7 seconds to
complete.
However, it first does the sub 'maxstaffelbepaling' and then it shows the
label.

Does anyone of you have a solution please ? I want to show the label first
and then execute the subs..
Thanks,
Pierre


--
Message posted via http://www.officekb.com

Thanks Rody,
This works wonderfully !
Pierre

Rody Meulman wrote:
Try DoEvents after making the label visible.

Met vriendelijke groet,

Rody

Hi experts,

[quoted text clipped - 20 lines]
Thanks,
Pierre


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200510/1