Public Class InputExpanderV

   Sub New()

      ' La chiamata è richiesta dalla finestra di progettazione.
      InitializeComponent()

      ' Aggiungere le eventuali istruzioni di inizializzazione dopo la chiamata a InitializeComponent().
      'TextBoxFocus.Focus()
      AddHandler Map.refInputExpanderVM.m_FocusOnTextBox, AddressOf FocusOnText
   End Sub

   Friend Sub FocusOnText()
      Me.TextBoxFocus.Focus()
   End Sub

   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