Private Sub Fortschritt_ValueChanged(ByVal sender As System.Object, ByVal e _
      As System.Windows.RoutedPropertyChangedEventArgs(Of System.Double))
 
        For x As Double = 1.0 To 226.0
 
            Fortschritt.Value() = Fortschritt.Value() + x
 
 
            If Fortschritt.Value() = 226.0 Then
                Exit For
            End If
 
        Next
 
 
        MediaElement1.Position = System.TimeSpan.FromSeconds(Fortschritt.Value)
 
 
    End Sub