label does not show???

CalculationStatus is a userform
userform is modeless
CalculationStatus has a lable control named Label1
label1 is visible

BUT label1 does not show???

if i do a similar thing only updateing the caption text on the user form...
eveything is o.k. ...except this is graphically not what i want...

-------------------------------------------------------------------------
With CalculationStatus
.Show
.Label1.Caption = "calculating"
Application.Run CountRows()

.Label1.Caption = "determining number of row of data on this worksheet"
Application.Run CountDataRows()

.Label1.Caption = "clearing schedule of all data"
Application.Run ClearSchedule()

End With
CalculationStatus.Hide

With CalculationStatus
.Show
.Label1.Caption = "calculating"
.Repaint
DoEvents
Application.Run CountRows()

.Label1.Caption = "determining number of row of data on this worksheet"
.Repaint
DoEvents
Application.Run CountDataRows()

.Label1.Caption = "clearing schedule of all data"
.Repaint
DoEvents
Application.Run ClearSchedule()

End With
CalculationStatus.Hide

--
Regards,
Tom Ogilvy

"mark kubicki" <MK@KuglerTillotson.com> wrote in message
news:eu11SlDRFHA.1348@TK2MSFTNGP15.phx.gbl...
> CalculationStatus is a userform
> userform is modeless
> CalculationStatus has a lable control named Label1
> label1 is visible
>
> BUT label1 does not show???
>
> if i do a similar thing only updateing the caption text on the user
form...
> eveything is o.k. ...except this is graphically not what i want...
>
> -------------------------------------------------------------------------
> With CalculationStatus
> .Show
> .Label1.Caption = "calculating"
> Application.Run CountRows()
>
> .Label1.Caption = "determining number of row of data on this
worksheet"
> Application.Run CountDataRows()
>
> .Label1.Caption = "clearing schedule of all data"
> Application.Run ClearSchedule()
>
> End With
> CalculationStatus.Hide
>
>