UserForm label doesn't load?

[Ed]

I made a small UserForm with a label that says "Waiting" to pop up during
some of my longer macro routines. I'm trying it in one program using the
code below, but the Label never loads - it stays a white square. What would
be the best way to figure out why it won't load? Or does anyone have a
correction for this?

Ed

<Dims here>

Load UserForm1
cntFound = 0

MyTarget = ""
MyTarget = Application.InputBox("What text are you searching for?")
If MyTarget = "" Or MyTarget = "False" Then GoTo Bye

UserForm1.Show vbModeless

Range("B1").Activate
strName = ActiveWorkbook.Name
Application.ScreenUpdating = False

Do
<loop through code>
<Form unloaded at end>

 

[Tom Ogilvy]

UserForm1.Show vbModeless
DoEvents

 

[Nigel]

Presumably the userform loads since you see a white square which also means
that the form control also loads. So how is the Label caption being set?
Have you placed this in the form control properties? An obvious one but
what colors have you specified for the label caption?

Try specifying the caption as part of the form initialize event. So behind
the form try

Private Sub UserForm_Initialize()
Label1.Caption = "Please Wait"
End Sub

Cheers
Nigel

 

[Ed]

Nigel: I added this to my form, but it didn't help.

Private Sub UserForm_Initialize()

With Label1
.Height = 30
.Width = 132
.Caption = "Waiting"
.BackColor = RGB(255, 0, 0)
.Font.Name = "Matura MT Script Capitals"
.Font.Size = 22
.Font.Italic = True
.BorderStyle = fmBorderStyleSingle
End With

End Sub

 

[Ed]

Tom - I was going to say it didn't work, then I realized I stuck it in after
the Load and not after the Show. Changed it to the right place and it
worked. I'll never doubt you again! 8>)

Thanks again.
Ed