Set the ScollBars property

How can I set the ScrollBars property of a textboy during runtime?

(I hate VB in cause of such things ;))

It's ReadOnly, so I don't think you can.

Im asking because there must be a way. Probably with subclassing the textbox or some API stuff...

Hi Fox, Hope this can help you.

Code:

---

Option Explicit
Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Private Const SB_BOTH = 3
Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Sub Command1_Click()
ShowScrollBar Text1.hwnd, SB_BOTH, 1
End Sub

---

Exactly. Thank you :)