Thread: Scroll Bars in a form

What I need to do is add a scroll bar to my text box in my form. I used the properties of the text box to add a scroll bar but when you preview it you can't see it. When you click somewhere inside the form it appears and is workable but not when it hasn't been clicked on. How do I make the scroll bar appear from the start. this is a vertical one ad is on a text box within the form

The TextBox MultiLine Property needs setting to True. The scrokkbar will become visible as data is entered

What data are you putting in? maybe you could use a listbox

This works for me.
Userform textbox and command button

Code:

Private Sub UserForm_Activate()

    Dim objTemp As Object
    
    Set objTemp = Me.ActiveControl
    TextBox1.SetFocus
    objTemp.SetFocus
    
End Sub

Private Sub UserForm_Initialize()

    With TextBox1
        .ScrollBars = fmScrollBarsVertical
        .MultiLine = True
        .WordWrap = True
        .Text = "Here is some text Here is some text Here is some text Here is some text Here is some text Here is some text"
    End With
    
End Sub

If the textbox is first in the Tab order the activation event code in not required.

The scrollbars are only displayed if the text is long enough.

Just add this to your userform

Code:

Private Sub UserForm_Initialize()
 Me.TextBox2.SetFocus
End Sub

All you actually need in your userform, to fix the problem, is the following.

Code:

Private Sub UserForm_Initialize()

    With TextBox2
        .TabIndex = 0
        .ScrollBars = fmScrollBarsVertical
        .SelStart = 0
    End With
    
End Sub

Your post does not comply with Rule 9 of our Forum RULES. If you solve a problem yourself before anyone else has responded, please take a moment to describe your solution, chances are some other member will benefit. And please never edit a thread in which someone else has responded.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save