WPF VB.Net

        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        x:Class="AboutDialog" ListBox.SelectionChanged="ListBox_SelectionChanged"
        Button.Click="Button_Click"
        Title="About WPF Unleashed" SizeToContent="WidthAndHeight"
        Background="OrangeRed">
  
    
      WPF
    
    
    
    
      1
      2
      3
      4
      5
      6
      7
      8
      9
    

    
      Help
      OK
    

    test
  

//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Public Partial Class AboutDialog
  Inherits Window
  Public Sub New()
    InitializeComponent()
  End Sub
  Private Sub ListBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)
    If e.AddedItems.Count > 0 Then
      MessageBox.Show("You just selected " & Convert.ToString(e.AddedItems(0)))
    End If
  End Sub
  Private Sub Button_Click(sender As Object, e As RoutedEventArgs)
    MessageBox.Show("You just clicked " & Convert.ToString(e.Source))
  End Sub
End Class