Private Sub SearchButton_Click
(ByVal sender As Object, ByVal e As RoutedEventArgs) 
Handles SearchButton.Click   
ProgressBar1.Visibility = Visible   
SearchButton.IsEnabled = False   
Dim dt As DataTable = Nothing   
Dim worker As New BackgroundWorker   
AddHandler worker.DoWork, Sub()    
PrepareSearch()    
worker.ReportProgress(50)    
dt = SearchDatabase()  End Sub   
AddHandler worker.RunWorkerCompleted, Sub()    
ResultsGrid.DataContext = dt     
ProgressBar1.Visibility = Visible     
SearchButton.IsEnabled = True   
End Sub     
AddHandler worker.ProgressChanged,       
Function(a As Object, b As ProgressChangedEventArgs) _           
ProgressBar1.Value = b.ProgressPercentage  
worker.RunWorkerAsync()End Sub

Private Async Sub SearchButton_Click
(ByVal sender As Object, ByVal e As RoutedEventArgs) 
Handles SearchButton.Click   
ProgressBar1.Visibility = Visible   
SearchButton.IsEnabled = False   
Await PrepareSearch()  ProgressBar1.Value = 50   
ResultsGrid.DataContext = Await SearchDatabaseAsync()  
ProgressBar1.Visibility = Visible   
SearchButton.IsEnabled = TrueEnd Sub

private async void SearchButton_Click
(object sender, RoutedEventArgs e){  
ProgressBar1.Visibility = Visibility.Visible;   
SearchButton.IsEnabled = false;   
await PrepareSearchAsync();   
ProgressBar1.Value = 50;   
ResultsGrid.DataContext = await SearchDatabaseAsync();   
ProgressBar1.Visibility = Visibility.Visible;   
SearchButton.IsEnabled = true;}