This work great!

Thanks!!!

Tom Ogilvy wrote:
Try

Public Sub SubB

frm1.TextBox1.text = "test"
doevents
frm1.repaint
doevents
Call SubC

"Nick" wrote in message
...

Hi,

I have the follow simple code, a form "frm1" is created and attached a
textbox

-------------------------------
Public Sub Auto_Open()

frm1.show

End Sub


Public Sub SubB

frm1.TextBox1.text = "test"

Call SubC

End SubB

'in the activate function of frm1

Private Sub UserForm_Activate()

Call SubB

End Sub
------------------------------------

Why the form frm1 is show, but the text box is not loaded, it is like
something very busy (yes, SubC is very busy), but everything else is

okay.

Thanks

Nick