xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
Title="Change Item">
//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Shapes
Namespace ChangeItem
Public Partial Class MainWindow
Inherits Window
Public Sub New()
MyBase.New()
InitializeComponent()
AddHandler mainCanvas.MouseLeftButtonDown, AddressOf OnClick
End Sub
Private Sub OnClick(sender As Object, e As RoutedEventArgs)
Dim r As Ellipse = TryCast(e.Source, Ellipse)
If r IsNot Nothing Then
r.Width += 10
End If
End Sub
End Class
End Namespace