VB Textbox的滚动条自动显示和隐藏及TextHeight()造成的堆栈溢出

Textbox的滚动条不是自动显示和隐藏的。为了能做到自动隐藏和显示，搜了个代码如下：

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

调试时可以实现目的，但是实际使用时，出现了堆栈溢出的问题。

原因：Textbox里的文本过大，超出了64K，在TextHeight(Text1.Text)这里溢出。

在MSDN里，TextHeight并没有说明数据类型，说明是用于Form，Picture控件等的，并没有特定用于Textbox，按理说不应该受限于Textbox的64K限制，但是现实很骨感。

另外，这个函数似乎不太稳定，有时需要显示出来才比较准，对于自动换行好像也不准。我的Textbox通过消息机制突破了64K，不太能用这个，于是，还是用消息实现了上述功能。

lLines = SendMessage(TxtFile.hWnd, EM_GETLINECOUNT, 0, 0)   '取总行数

If lLines > TxtFile.Height / TextHeight("Me") Then
    ShowScrollBar TxtFile.hWnd, SB_VERT, True     '显示
Else
    ShowScrollBar TxtFile.hWnd, SB_VERT, False    '隐藏
End If