文本框(TextBox)根据行数多少来自动显示/隐藏滚动条

有时候我们在使用多行模式的文本框时，不希望在不超行的情况下看到滚动条，那么如何实现呢，其实很简单，只需要一个API函数就可以搞定，首先在窗体上添加一个Text1，将其属性MultiLine设为True，代码如下：
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_HORZ = 0 '水平
Private Const SB_VERT = 1 '垂直
Private Const SB_BOTH = 3 '两者都有

Private Sub Text1_Change()
Text1.SelStart = Len(Text1.Text)
If TextHeight(Text1.Text) > Text1.Height Then
ShowScrollBar Text1.hwnd, SB_VERT, True '显示
Else
ShowScrollBar Text1.hwnd, SB_VERT, False '隐藏
End If
End Sub