xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" x:Class="ProgBar.Window1" Title ="ProgressBar" Width="500">
StatusBar
//File:Window.xaml.vb Imports System Imports System.Windows Imports System.Windows.Controls Imports System.Windows.Controls.Primitives Imports System.Windows.Data Imports System.Windows.Documents Imports System.Windows.Media Imports System.Windows.Media.Animation Imports System.Windows.Media.Imaging Imports System.Windows.Shapes Namespace ProgBar Public Partial Class Window1 Inherits Window Private Sub MakeOne(sender As Object, e As RoutedEventArgs) sbar.Items.Clear() Dim lbl As New Label() lbl.Background = New LinearGradientBrush(Colors.LightBlue, Colors.SlateBlue, 90) lbl.Content = "ProgressBar with infinite iterations." sbar.Items.Add(lbl) Dim progbar As New ProgressBar() progbar.Width = 150 progbar.Height = 15 Dim duration As New Duration(TimeSpan.FromSeconds(1)) Dim doubleanimation As New DoubleAnimation(100.0, duration) doubleanimation.RepeatBehavior = RepeatBehavior.Forever progbar.BeginAnimation(ProgressBar.ValueProperty, doubleanimation) sbar.Items.Add(progbar) End Sub End Class End Namespace