xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
x:Class="WpfApplication1.RoutedEventSource">
//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