//File:Window.xaml.vb Imports System Imports System.Collections.Generic Imports System.Linq Imports System.Text Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Input Imports System.Windows.Media Imports System.Windows.Media.Imaging Imports System.Windows.Navigation Imports System.Windows.Shapes Imports System.Windows.Controls.Primitives Namespace WpfApplication1 Public Partial Class Window1 Inherits Window Public Sub New() InitializeComponent() End Sub Private Sub btnShowPopup_Click(sender As Object, e As RoutedEventArgs) If sender Is btnFadePopup Then Console.WriteLine("fade") ElseIf sender Is btnScrollPopup Then Console.WriteLine("scroll") ElseIf sender Is btnSlidePopup Then Console.WriteLine("slide") Else Console.WriteLine("else") End If End Sub End Class End Namespace