WPF VB.Net Tutorial

  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  x:Class="WpfApplication1.RoutedEventSource">
  
    
      
      
      
    
  

  Button 1
  Button 2
  Button 3    

//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Controls
Namespace WpfApplication1
  Public Partial Class RoutedEventSource
    Private Sub HandleClick(sender As Object, e As RoutedEventArgs)
      Dim srcButton As Button = TryCast(e.Source, Button)
      srcButton.Width = 200
    End Sub
  End Class
End Namespace