//File:Window.xaml.vb Imports System.Windows Imports System.Windows.Controls Namespace WpfApplication1 Public Partial Class Window1 Inherits Window Public Sub New() InitializeComponent() End Sub Private Sub GetSliderValue_Click(sender As Object, e As RoutedEventArgs) Dim button As Button = TryCast(e.OriginalSource, Button) Dim message As String = "Unknown slider." If button Is btnGetSliderValue1 Then message = "Slider1 value = " + slider1.Value ElseIf button Is btnGetSliderValue2 Then message = "Slider2 value = " + slider2.Value End If MessageBox.Show(message, Title) End Sub Private Sub slider_ValueChanged(sender As Object, e As RoutedPropertyChangedEventArgs(Of Double)) Dim slider As Slider = TryCast(e.OriginalSource, Slider) If slider IsNot Nothing Then txtSliderValue.Text = slider.Value.ToString() End If End Sub End Class End Namespace