' When your end user clicks on the track, a new thumb will be added at that location. Private Sub xamNumericRangeSlider_TrackClick(ByVal sender As System.Object, ByVal e As TrackClickEventArgs(Of System.Double)) ' When your end user clicks on the track, a new thumb will be added at that location. ' Define new thumb Dim thumb As xamSliderNumericThumb = New xamSliderNumericThumb 'Set the thumb's value to the area where your end user clicked thumb.Value = e.Value 'Add to the Slider's Thumbs collection Me.xamNumericRangeSlider1.Thumbs.Add(thumb) ' Set the thumb to be active Me.xamNumericRangeSlider1.ActiveThumb = thumb End Sub ' When your end user clicks on the Button, the current active thumb will be deleted Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs) ' Ensure there is an active thumb If (Not (Me.xamNumericRangeSlider1.ActiveThumb) Is Nothing) Then ' Remove the active thumb from the Slider's Thumbs collection Me.xamNumericRangeSlider1.Thumbs.Remove(Me.xamNumericRangeSlider1.ActiveThumb) End If End Sub