TextBoxScroll - Programmatically scroll a multi-line TextBox control

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
    lParam As Any) As Long
Const EM_LINESCROLL = &HB6

' Scroll the contents of the control.
'
' Positive values scroll left and up, negative values scroll right and down.
' IMPORTANT: you can only scroll TextBox control to which the corresponding
'            scrollbar (horizontal or vertical) is associated

Sub TextBoxScroll(tb As TextBox, ByVal HorizScroll As Long, _
    ByVal VertScroll As Long)
    SendMessageByVal tb.hwnd, EM_LINESCROLL, HorizScroll, VertScroll
End Sub