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

label does not show???
 

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" wrote in message
...
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