Dim aniOpacity As New DoubleAnimation()
aniOpacity.From = 0.1
aniOpacity.To = 1
Dim timeSpanDuration As New TimeSpan(0, 0, lngTakt / 1000)
aniOpacity.Duration = New Duration(timeSpanDuration)
Me.aProgressBar.BeginAnimation(ProgressBar.ValueProperty, aniOpacity)
Я не уверен, если это то, что вы искали. Но я не знаю, как вы хотите установить индикатор выполнения, если вы не знаете состояние процесса.
// РЕДАКТИРОВАТЬ: Извините, теперь я знаю, что вы имеете в виду. Вы можете поместить код в цикл. Если вы закончили свой процесс, вы останавливаете цикл.