WPF VB.Net Tutorial

    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