Public Class InputExpanderV

   Private Sub TextBox_PreviewKeyDown(sender As Object, e As KeyEventArgs)
      If e.Key = Key.Enter And Keyboard.Modifiers = ModifierKeys.Shift Then
         Txt.AcceptsReturn = True
         Txt.TextWrapping = TextWrapping.Wrap
         Txt.AppendText(Environment.NewLine)
      End If
   End Sub

End Class