//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