diff --git a/contrib/gtwvg/scrollbr.prg b/contrib/gtwvg/scrollbr.prg
index 2d7b22dfb1..406aaada99 100644
--- a/contrib/gtwvg/scrollbr.prg
+++ b/contrib/gtwvg/scrollbr.prg
@@ -78,6 +78,8 @@ CREATE CLASS WvgScrollBar INHERIT WvgWindow, WvgDataRef
 
    METHOD setRange( aRange )
    METHOD setScrollBoxSize( nUnits )
+   // https://learn.microsoft.com/en-us/windows/win32/controls/sbm-setpos
+   METHOD SetScrollPos( nPos )  INLINE wapi_SetScrollPos( ::pWnd, SB_CTL, nPos, .F. )
 
 ENDCLASS