Label Caption - Code

[paulyf]

Hi all,

I've been trying to have my form display a "Loading files...Please wait" message whilst it opens a file. However, the following code displays the label after it has opened the file (i.e. - too late!). How can I display the label before commencing the opening of the file?

Any thoughts?? Many Thanks in anticipation.

Cheers - Paul

Private Sub loadsup_Click()
lblwait.Visible = True
lblwait.Caption = "Loading files...Please wait"
ChDir "C:blah blah"
Workbooks.Open Filename:="C:blah blahtest.xls"

 

[Legacy 98055]

Hi Paul
Use the UserForm.RePaint Method


<pre>


Private Sub loadsup_Click()
lblwait.Visible = True
lblwait.Caption = "Loading files...Please wait"
UserForm1.Repaint
Workbooks.Open Filename:="C:blah blahtest.xls"
End Sub

</pre>

Replace UserForm1 with the name of your form.
Tom

 

[paulyf]

Not sure how to edit initial post (answers on a postcard) but PROBLEM SOLVED.

MANY THANKS!

Cheers - Paul