Click="cmdAnswer_Click" Grid.Row="1"> Ask the Eight Ball
TextWrapping="Wrap" IsReadOnly="True" FontFamily="Verdana" FontSize="24" Foreground="Green" Grid.Row="2"> [Answer will appear here.]
//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