Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
    Me.RichTextBox1.Location = New System.Drawing.Point(0, 0)
    Me.RichTextBox1.Size = New System.Drawing.Size(128, 408)
    Me.RichTextBox1.Text = ""
    Me.Label1.Location = New System.Drawing.Point(32, 0)
    Me.Label1.Name = "Label1"
    Me.Label1.Size = New System.Drawing.Size(80, 16)
    Me.Label1.TabIndex = 5
    Me.Label1.Text = "__Test Label1"
    Me.Label1.BringToFront()
    Me.ClientSize = New System.Drawing.Size(140, 413)
 
    'Richtextbox mit verschiedenen Textgrössen zum Testen füllen
    Dim i As Integer
    For i = 0 To 30
      RichTextBox1.SelectionFont = New Font("Arial", (i Mod 10) + 5, _
        FontStyle.Regular)
      RichTextBox1.AppendText(((i Mod 10) + 5).ToString & "________" & vbCrLf)
    Next i
  End Sub
 
  Private Sub RichTextBox1_VScroll1(ByVal sender As Object, ByVal e As _
    System.EventArgs) Handles RichTextBox1.VScroll
    'Nach jedem scrollen die Scrollposition auslesen und das Label1 so 
    ' verschieben das es scheinbar mitscrollt.
    'Label1 sollte immer auf der gleiche Höhe sein, wie die Zeile mit dem Text 
    ' "13____" in der Richtextbox
    Label1.Top = 289 - GetScrollPos(RichTextBox1.Handle, 1)
  End Sub