//File:Window.xaml.vb
Imports System.Windows
Namespace WPFThreading
Public Partial Class BlockThread
Inherits System.Windows.Window
Public Sub New()
InitializeComponent()
Me.UIThreadLabel.Content = Me.Dispatcher.Thread.ManagedThreadId
Me.BackgroundThreadLabel.Content = "N/A"
End Sub
Private Sub button1_click(sender As Object, e As RoutedEventArgs)
System.Threading.Thread.Sleep(5000)
Me.textbox1.Text = "Done Sleeping..."
End Sub
Private Sub button2_click(sender As Object, e As RoutedEventArgs)
Me.textbox1.Text = "Hello WPF"
End Sub
End Class
End Namespace