vb.net - Windows 8 の RichEditBox を使用して新しい行を自動インデントするにはどうすればよいですか?

Question

RichEditBox 内でキーが押されるたびにタブ文字を追加する次の VB コードがありますが、エンド ユーザーがリターン キーを押すとアプリが自動インデントするので、どのようにそれを作成できるかわかりません。 Tab キーを何度も押す必要はありませんが、新しい行ごとにコードを正しくネストします。

どんな助けでも大歓迎です、ありがとう。

KeyDown でのタブ挿入の現在のコード:

Private Sub TextBox_KeyDown(sender As Object, e As KeyRoutedEventArgs) Handles TextBox.KeyDown
    If e.Key = Windows.System.VirtualKey.Tab Then
        e.Handled = True
        Dim SelectionText As String = ""
        TextBox.Document.Selection.GetText(Windows.UI.Text.TextGetOptions.None, SelectionText)
        TextBox.Document.Selection.TypeText(vbTab + SelectionText)
    End If
End Sub