' エンドユーザーがトラックをクリックすると、新しいつまみがクリックした場所に追加されます
Private Sub xamNumericRangeSlider_TrackClick(ByVal sender As System.Object, ByVal e As TrackClickEventArgs(Of System.Double))
   ' エンドユーザーがトラックをクリックすると、新しいつまみがクリックした場所に追加されます
   ' 新しいつまみを定義します
   Dim thumb As xamSliderNumericThumb = New xamSliderNumericThumb
   'つまみの値をエンドユーザーがクリックした領域に設定します
   thumb.Value = e.Value
   'スライダーの Thumbs コレクションに追加します
   Me.xamNumericRangeSlider1.Thumbs.Add(thumb)
   ' つまみをアクティブに設定します
   Me.xamNumericRangeSlider1.ActiveThumb = thumb
End Sub
' エンドユーザーがボタンをクリックすると、現在アクティブのつまみが削除されます
Private Sub Button_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
   ' アクティブのつまみがあることを確認します
   If (Not (Me.xamNumericRangeSlider1.ActiveThumb) Is Nothing) Then
      ' アクティブのつまみをスライダーの Thmbs コレクションから削除します
      Me.xamNumericRangeSlider1.Thumbs.Remove(Me.xamNumericRangeSlider1.ActiveThumb)
   End If
End Sub