vb.net - 如何使用 Windows 8 RichEditBox 自动缩进新行？

Question

每当在 RichEditBox 中按下键时，我都有以下 VB 代码添加一个 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