WPF VB.Net

  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  x:Class="WpfApplication1.Window1" Height="480" Width="640"
  Title="TextWrap Sample">
  
    
      Wrap
      NoWrap
      WrapWithOverflow
    
    
      Lorem ipsum dolor sit amet, consectetuer adipiscing elit. Lorem ipsum dolor sit amet, 
      consectetuer adipiscing elit.Lorem ipsum dolor sit aet, consectetuer adipiscing elit.
      Lorem ipsum dolor sit amet, consectetuer adipiscing elit.
    
    
      The TextWrap property is currently set to Wrap.
        
  

//File:Window.xaml.vb
Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports System.Windows.Media
Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub Wrap(sender As Object, e As RoutedEventArgs)
      txt2.TextWrapping = System.Windows.TextWrapping.Wrap
      txt1.Text = "The TextWrap property is currently set to Wrap."
    End Sub
    Public Sub NoWrap(sender As Object, e As RoutedEventArgs)
      txt2.TextWrapping = System.Windows.TextWrapping.NoWrap
      txt1.Text = "The TextWrap property is currently set to NoWrap."
    End Sub
    Public Sub WrapWithOverflow(sender As Object, e As RoutedEventArgs)
      txt2.TextWrapping = System.Windows.TextWrapping.WrapWithOverflow
      txt1.Text = "The TextWrap property is currently set to WrapWithOverflow."
    End Sub
  End Class
End Namespace