WPF VB.Net

    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" Loaded="OnLoad" Name="GroupBoxPage">
    
        
            
                
            

            
                
                    
                        _Personal
                        
                            Employee
                            Select your name
                            
                                A
                                B
                                C
                                D
                            
                        

                    
                    
                        _Job
                        
                            Select a job
                            
                                A
                                B
                                C
                                D
                            
                        

                    

                    
                        Su_mmary
                        
                            
                            
                            
                        

                    
                
                
            

        
    


//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.Navigation
Imports System.Windows.Shapes
Namespace GroupBoxExample
  Public Partial Class Page1
    Inherits Page
    Private Sub displayData()
      Dim lbi As ListBoxItem = TryCast(empName.SelectedItem, ListBoxItem)
      emp.Text = "Name: " & lbi.Content.ToString()
      lbi = TryCast(job.SelectedItem, ListBoxItem)
      ejob.Text = "Job: " & lbi.Content.ToString()
      eskill.Text = "Skill: " & lbi.Content.ToString()
    End Sub
    Private Sub OnLoad(sender As Object, e As RoutedEventArgs)
      displayData()
    End Sub
    Private Sub updateSummary(sender As Object, e As RoutedEventArgs)
      If GroupBoxPage.IsLoaded Then
        displayData()
      End If
    End Sub
    Private Sub goToSummaryTab(sender As Object, e As RoutedEventArgs)
      displayData()
      Summary.IsSelected = True
    End Sub
  End Class
End Namespace