Save Scroll info of richtext

[three57m]

I am trying to find out if there is a better way thru API to get the y value of the vertical scroll bars position when. The APIs I have tried maxed out at around 65000.

Here is an example of code I am testing now.
And still hitting the 65000 barrier.
I have also tried the EM_GETSCROLLPOS Sendmessage API but the same barrier exists.
Is it possible to get this value in another API that would exceed this barrier by a reasonable amount.



Any help would be appreciated.

Private Const SB_HORZ = 0
Private Const SB_VERT = 1
Private Const SIF_RANGE = &H1
Private Const SIF_PAGE = &H2
Private Const SIF_POS = &H4
Private Const SIF_DISABLENOSCROLL = &H8
Private Const SIF_TRACKPOS = &H10
Private Const SIF_ALL = (SIF_RANGE Or SIF_PAGE Or SIF_POS Or SIF_TRACKPOS)



Private Declare Function GetScrollInfo Lib "user32" _
(ByVal hwnd As Long, _
ByVal n As Long, _
lpScrollInfo As SCROLLINFO) As Long

Private Declare Function SetScrollInfo Lib "user32" (ByVal hwnd As Long, ByVal n As Long, lpcScrollInfo As SCROLLINFO, ByVal bool As Boolean) As Long
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


Private Sub Command1_Click()
    Dim si As SCROLLINFO
    si.cbSize = Len(fgb)
    si.fMask = SIF_TRACKPOS
    
    GetScrollInfo RichTextBox1.hwnd, SB_VERT, si
    Text1.Text = si.nTrackPos  'max out at around 64k to 65k
End Sub