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
Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.
