Public Sub GetTheHight(RTFBox As RichTextBox)
 
    Dim lngMyLine As Long
    Dim lngCursorAtLine As Long         ' Zeile in der sich der Cursor befindet
    Dim lngFirstVisibleLine As Long     ' Die erste Zeile die zu sehen ist
    Dim lngSelLineStart As Long         ' Beginn der aktuellen Zeile
    Dim lngSelLineLength As Long        ' Länge der aktuellen Zeile
 
        lngCursorAtLine = GetActLine(RTFBox)
        lngFirstVisibleLine = SendMessage(RTFBox.hwnd, EM_GETFIRSTVISIBLELINE, _
          ByVal 0&, ByVal 0&)
        lngSelLineStart = GetFirstCharPos(RTFBox) + 1
        lngSelLineLength = GetRowLength(RTFBox)
 
            lngMyLine = lngCursorAtLine - lngFirstVisibleLine
 
                ' Ein bisschen Schummeln:
                ' Um die höhe einer Zeile zu ermitteln ein Label (Autosize = 
                ' TRUE)
                ' Schriftart mit der der RichTextBox anpassen und den Text der 
                ' aktuellen Zeile hinneinschreiben :)
                frmDocument.lblGetRowHeightWitdh.Font.Name = _
                  frmDocument.rtfText.Font.Name
                frmDocument.lblGetRowHeightWitdh.Font.Size = _
                frmDocument.rtfText.Font.Size
                frmDocument.lblGetRowHeightWitdh.Font.Bold = _
                frmDocument.rtfText.Font.Bold
                frmDocument.lblGetRowHeightWitdh.Font.Italic = _
                frmDocument.rtfText.Font.Italic
                frmDocument.lblGetRowHeightWitdh.Font.Underline = _
                frmDocument.rtfText.Font.Underline
                frmDocument.lblGetRowHeightWitdh.Caption = Mid( _
                frmDocument.rtfText.Text, lngSelLineStart, lngSelLineLength)
 
            frmCommandBox.Top = (frmMain.Height - frmMain.ScaleHeight) + _
              frmDocument.Top + (frmDocument.lblGetRowHeightWitdh.Height * _
              lngMyLine) + 100
            frmCommandBox.Left = frmMain.Toolbar1.Width + frmDocument.Left + _
            frmDocument.rtfText.Left + frmDocument.lblGetRowHeightWitdh.Width + _
            300
 
End Sub