ProgressBar - Windows Phone Controls

Imports System.Windows.Threading

Partial Public Class MainPage
    Inherits PhoneApplicationPage

	Dim dt As DispatcherTimer = New DispatcherTimer

    ' Constructor
    Public Sub New()
        InitializeComponent()

        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 100
        dt.Interval = New TimeSpan(0, 0, 0, 0, 100)

        AddHandler dt.Tick, AddressOf Me.dt_Tick
        dt.Start()
    End Sub

      Private Sub dt_Tick(ByVal sender As Object, ByVal e As EventArgs)
        Me.ProgressBar1.Value = Me.ProgressBar1.Value + 1

        If (Me.ProgressBar1.Value > ProgressBar1.Maximum) Then
            dt.Stop()
        End If
    End Sub

End Class

using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
using System.Windows.Threading;

public partial class MainPage : PhoneApplicationPage
{


	DispatcherTimer dt = new DispatcherTimer();
	// Constructor
	public MainPage()
	{
		InitializeComponent();

		ProgressBar1.Minimum = 0;
		ProgressBar1.Maximum = 100;
		dt.Interval = new TimeSpan(0, 0, 0, 0, 100);

		dt.Tick += this.dt_Tick;
		dt.Start();
	}

	private void dt_Tick(object sender, EventArgs e)
	{
		this.ProgressBar1.Value = this.ProgressBar1.Value + 1;

		if ((this.ProgressBar1.Value > ProgressBar1.Maximum)) {
			dt.Stop();
		}
	}

}

    <!--LayoutRoot is the root grid where all page content is placed-->
    <Grid x:Name="LayoutRoot" Background="Transparent">
        <Grid.RowDefinitions>
            <RowDefinition Height="Auto"/>
            <RowDefinition Height="*"/>
        </Grid.RowDefinitions>

        <!--TitlePanel contains the name of the application and page title-->
        <StackPanel x:Name="TitlePanel" Grid.Row="0" Margin="12,17,0,28">
            <TextBlock x:Name="ApplicationTitle" Text="MY APPLICATION" Style="{StaticResource PhoneTextNormalStyle}"/>
            <TextBlock x:Name="PageTitle" Text="page name" Margin="9,-7,0,0" Style="{StaticResource PhoneTextTitle1Style}"/>
        </StackPanel>

        <!--ContentPanel - place additional content here-->
        <Grid x:Name="ContentPanel" Grid.Row="1" Margin="12,0" ShowGridLines="True">
            <ProgressBar Height="46" HorizontalAlignment="Left" Margin="0,225,0,0" Name="ProgressBar1" VerticalAlignment="Top" Width="460" />
            <TextBlock Height="30" Margin="175,157,176,0" Name="TextBlock1" Text="ProgressBar" VerticalAlignment="Top" />
            <Button Content="Start" Height="72" HorizontalAlignment="Left" Margin="80,317,0,0" Name="btnStart" VerticalAlignment="Top" Width="160" Click="btnStart_Click" />
            <Button Content="Stop" Height="72" HorizontalAlignment="Left" Margin="246,317,0,0" Name="btnStop" VerticalAlignment="Top" Width="160" Click="btnStop_Click" />
        </Grid>

    </Grid>