Scrolling a Text box on a form

[Jonathan]

Hello all,

I have a text box on a form. The text box is formatted to allow several
lines of text to be visible. Vertical scroll bars are on. I want to update
the text box with progress messages as processing goes forward. I wrote a
small subroutine as follows:



Private Sub SetMsgs(ByVal msg As String)

txtMsgs = txtMsgs & msg & vbCr & vbLf

Me.Repaint

End Sub



Typical calls will be:



SetMsgs "Loading table 1."

SetMsgs "Loading table 2."



This works except that the text box only shows the top few lines and doesn't
scroll down as I add more text.



How can I cause the text box to scroll as I fill it?



Thanks

Jonathan
KingsKinght1 <at> hotmail <dot> com

 

[Baz]

Hello all,

I have a text box on a form. The text box is formatted to allow several
lines of text to be visible. Vertical scroll bars are on. I want to update
the text box with progress messages as processing goes forward. I wrote a
small subroutine as follows:



Private Sub SetMsgs(ByVal msg As String)

txtMsgs = txtMsgs & msg & vbCr & vbLf

Me.Repaint

End Sub



Typical calls will be:



SetMsgs "Loading table 1."

SetMsgs "Loading table 2."



This works except that the text box only shows the top few lines and doesn't
scroll down as I add more text.



How can I cause the text box to scroll as I fill it?



Thanks

Jonathan
KingsKinght1 <at> hotmail <dot> com

Add the progress messages to the top instead of the bottom?