How to store/set the scrollbar's current position?

[TheSmileyCoder]

I have a form, with a textbox "tb_RibbonXML". It contains alot of text, and as such has a scrollbar. Now when I am editing it, I will usually scrolldown, make a few edits, hit Ctrl-S to save and the record is saved, but the cursor position returns to the start of the textbox.

I have made code to store the cursors position within the textbox:

Option Compare Database
Option Explicit
Private lngCursorPosition
Private lngCursorSelectionLength
 
Private Sub tb_RibbonXml_BeforeUpdate(Cancel As Integer)
      'Record cursor position
      lngCursorPosition = Me.tb_RibbonXml.SelStart
      lngCursorSelectionLength = Me.tb_RibbonXml.SelLength
End Sub
 

And code to reset it after an update:

Private Sub Form_AfterUpdate()
   On Error Resume Next
      If Me.ID = lngRibbonID Then
            If Screen.ActiveControl = Me.tb_RibbonXml Then
               'Restore cursor position
               Me.tb_RibbonXml.SelStart = lngCursorPosition
               Me.tb_RibbonXml.SelLength = lngCursorSelectionLength
            End If
      End If
End Sub

This works somewhat, but I would like to refine it more, by being able to store how far the textbox was scrolled down, and restore that information as well.

Anyone have some good suggestions?


This link could be usefull, but I am really not that good with using the declare function to get a function from an API.