Zewnętrzny scrollbar dla richtextbox'a, oprogramowanie komunikatów thumbtrack i endscroll

Używam Visual Basic 2002 .net.
Na formie znajduje się Richtextbox z transparentnym tłem, pod którym znajduje się obrazek, z tego powodu instrukcją:

richtextbox.scrollbars= none

usuwam oba scrollbary rtb, gdyż źle się zachowują (znikają lub migotają) na przeźroczystym tle.

Dodaję więc osobnego Vscrollbara, problem mam z oprogramowaniem komunikatów EndScroll i Thumbtrack lub Thumbposition, nie wiem co zrobić żeby przesuwając suwak scrollbara przewijać zawartość rtb do odpowiedniej linii i zachować tę pozycję po zakończeniu przewijania czyli po wywołaniu komunikatu endscroll.
Oto kod:

Private Declare Auto Function SendMessage Lib "user32" Alias "SendMessage" (ByVal hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Const WM_VSCROLL = &H115


Private Sub VScrollBar1_Scroll(ByVal sender As Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VScrollBar1.Scroll
        etype = e.Type
        If etype = ScrollEventType.EndScroll Then

'TUTAJ COŚ      

           End If

        If etype = ScrollEventType.ThumbTrack Then

           'TUTAJ COŚ

        Else

'Ta instrukcja obsługuje prawidłowo przewijanie rtb w górę w dół o linię i o stronę:

            SendMessage(RichTextBox1.Handle, WM_VSCROLL, etype, 0)
          
        End If
    End Sub




 

Do powyższego problemu dodaję jeszcze zapytanie o to jak oprogramować suwak w scrollboxie, aby jego szerokość była proporcjonalna do zawartości richtextboxa

I jeszcze jedno pytanie: Jak oprogramować zdarzenie richtextbox_vscroll? Czyli zgodność położenia suwaka wraz z przesuwaniem zawartości richtextboxa