Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As LongConst 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 associatedSub TextBoxScroll(tb As TextBox, ByVal HorizScroll As Long, _ ByVal VertScroll As Long) SendMessageByVal tb.hwnd, EM_LINESCROLL, HorizScroll, VertScrollEnd Sub