WPF VB.Net

  xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
  xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
  Title="" Height="300" Width="300">
  
    
      
    

    
      
        
      

    

    
      
        
          
        

        
          
        

      

    
    
      
        
          
        

        
          
        

      

    
    
      
        
          
        

        
          
        

      

    
  


//File:Window.xaml.vb
Imports System.Windows
Imports System.Windows.Input
Namespace WpfApplication1
  Public Partial Class Window1
    Inherits Window
    Public Sub New()
      InitializeComponent()
    End Sub
    Private Sub polygon1_MouseDown(sender As Object, e As MouseButtonEventArgs)
      MessageBox.Show("polygon1_MouseDown", "WpfApplication1")
    End Sub
    Private Sub polygon2_MouseDown(sender As Object, e As MouseButtonEventArgs)
      MessageBox.Show("polygon2_MouseDown", "WpfApplication1")
    End Sub
    Private Sub polygon3_MouseDown(sender As Object, e As MouseButtonEventArgs)
      MessageBox.Show("polygon3_MouseDown", "WpfApplication1")
    End Sub
  End Class
End Namespace