如何使用Windows 8 RichEditBox自动缩进新行？

Question

我有以下VB代码，只要在RichEditBox中按下键时添加一个Tab字符，但我无法弄清楚如何在最终用户按下返回键时这样做，应用程序将自动 - 缩进，因此您不需要多次按Tab键就可以在每个新行上正确嵌套代码。

感谢任何帮助，谢谢。

KeyDown上Tab键插入的当前代码：

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