//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Diagnostics Imports System.Windows.Shapes Imports System.Windows.Input Namespace WpfApplication1 Public Partial Class Window1 Inherits System.Windows.Window Public Sub New() InitializeComponent() myEllipse.[AddHandler](Ellipse.MouseDownEvent, New MouseButtonEventHandler(AddressOf MouseDownEllipse)) myEllipse.[AddHandler](Ellipse.PreviewMouseDownEvent, New MouseButtonEventHandler(AddressOf PreviewMouseDownEllipse)) End Sub Private Sub PreviewMouseDownEllipse(sender As Object, e As RoutedEventArgs) Debug.WriteLine("PreviewMouseDownEllipse") End Sub Private Sub MouseDownEllipse(sender As Object, e As RoutedEventArgs) Debug.WriteLine("MouseDownEllipse") End Sub End Class End Namespace