//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Input Namespace WpfApplication1 Public Partial Class Window1 Inherits Window Public Sub New() InitializeComponent() End Sub Private Sub Button_Click(sender As Object, e As RoutedEventArgs) MessageBox.Show("Mouse Click", "Button") End Sub Private Sub Label_MouseDoubleClick(sender As Object, e As MouseButtonEventArgs) MessageBox.Show("Mouse Double Click", "Label") End Sub Private Sub Rectangle_MouseDown(sender As Object, e As MouseButtonEventArgs) MessageBox.Show("Mouse Down", "Rectangle") End Sub Private Sub TextBlock_MouseUp(sender As Object, e As MouseButtonEventArgs) MessageBox.Show("Mouse Up", "TextBlock") End Sub End Class End Namespace