Option Explicit
Private Const SB_VERT = 1
Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
Private Sub Text1_Change()
On Error Resume Next
Dim lReturn As Long
lReturn = ShowScrollBar(Text1.hWnd...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.