TextWrapping="Wrap" FontFamily="Verdana" FontSize="24" Grid.Row="0" > text
Click="cmdAnswer_Click" Grid.Row="1"> Click
TextWrapping="Wrap" IsReadOnly="True" FontFamily="Verdana" FontSize="24" Foreground="Green" Grid.Row="2"> text
//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Imports System.Windows.Input Namespace EightBall Public Partial Class Window1 Inherits Window Public Sub New() InitializeComponent() End Sub Private Sub cmdAnswer_Click(sender As Object, e As RoutedEventArgs) Me.Cursor = Cursors.Wait System.Threading.Thread.Sleep(TimeSpan.FromSeconds(1)) txtAnswer.Text = "asdf" Me.Cursor = Nothing End Sub End Class End Namespace