Problemi avanzati con scrollbars

[MaxBa9]

salve a tutti
ho 1 grandissimo problema con le scrollbars
in pratica devo linkare una scrollbar di un controllo richtextbox con una scrollbar normale.
ho provato a fare 1 subclassing e a intercettare i messaggi

ho catalogato tutti i messaggi della rich 1 a 1 e ho scoperto ke i mex relativi allo scroll sono:
277 > VSCROLL
533 e 8465 che nn so come si chiamino ma sono sempre presenti

indipendentemente se lo scroll è verso l'alto o il basso i messaggi sn sempre gli stessi e quindi non riesco a sincronizzare l'altra scroll!!!

frugando 1 po tra le api ho trovato alcune cosette
sono riuscito a fare funzionare:

io = GetScrollPos(r.hwnd, 1) 'mi funziona x la rich ma rende il valore come se fosse al max ~30000-32000 e non capisco come riutilizzarlo

io = SendMessage(S.hwnd, SBM_GETPOS, 1, 0) 'questo invece funziona per la scrollbar ma rende sempre nel formato strano

SendMessage S.hwnd, SBM_SETPOS, io * 10, io * 10 'ho provato a assegnare il valore di scroll della rich alla scroll, funziona ma non so passargli il valore esatto (x10 è una prova)

ci sono poi tutte queste funzioni che non riesco prp a fare andare...

Declare Function SetScrollPos Lib "user32" (ByVal hwnd As Long, _
        ByVal nBar As Long, ByVal nPos As Long, _
        ByVal bRedraw As Long) As Long
Declare Function SetScrollRange Lib "user32" (ByVal hwnd As Long, _
        ByVal nBar As Long, ByVal nMinPos As Long, _
        ByVal nMaxPos As Long, ByVal bRedraw As Long) As Long 
Declare Function GetScrollRange Lib "user32" (ByVal hwnd As Long, _
        ByVal nBar As Long, lpMinPos As Long, _
        lpMaxPos As Long) As Long

cosa sono nBar, lpMinPos e lpMaxPos ?????

e poi ancora

Declare Function GetScrollInfo Lib "user32" (ByVal hwnd As Long, _
        ByVal n As Long, lpScrollInfo As SCROLLINFO) As Long
Declare Function SetScrollInfo Lib "user32" (ByVal hwnd As Long, _
        ByVal n As Long, lpcScrollInfo As SCROLLINFO, _
        ByVal bool As Boolean) As Long
Type SCROLLINFO
    cbSize As Long
    fMask As Long
    nMin As Long
    nMax As Long
    nPage As Long
    nPos As Long
    nTrackPos As Long
End Type

dove nn capisco cosa sia ByVal n As Long

....
x favore qualcuno ke mi aiuta!!!!! nn so + che fare!!!

grazie
MAx

[iguana13]

http://msdn.microsoft.com/library/de...tscrollpos.asp