Windows Phone and ProgressBar Using Thread/Multiple Thread (Silverlight)

    Private Sub btnStartThread_Click(sender As System.Object, e As System.Windows.RoutedEventArgs)
        Dim thread As System.Threading.Thread = New System.Threading.Thread(AddressOf ThreadStart)
        thread.Start()
    End Sub

    Private Sub ThreadStart()
        Dim intProgress As Integer = 0

        Dim threadID As String = System.Threading.Thread.CurrentThread.ManagedThreadId.ToString()

        '*** for Begin create Control ***'
        Dim begin As New Action(Of String)(AddressOf BeginCreate)

        '*** for Display ***'
        Dim display As New Action(Of Integer, String)(AddressOf UpdateStatus)

        '*** when Finish ***'
        Dim finish As New Action(AddressOf UpdateFinish)

        Dispatcher.BeginInvoke(begin, threadID) ' Create ProgressBar

        '*** Example for Execute
        For i As Integer = 0 To 100
            intProgress = i
            System.Threading.Thread.Sleep(100)
            Dispatcher.BeginInvoke(display, intProgress, threadID) 'Update Status
        Next

        Dispatcher.BeginInvoke(finish) ' When Finish
    End Sub

    '*** for Create control ProgressBar
    Private Sub BeginCreate(ByVal threadID As String)
        Dim ctrlProgress As New ProgressBar
        ctrlProgress.Name = "Progress" & threadID
        ContentPanel.Children.Add(ctrlProgress)

        Dim ctrlText As New TextBlock
        ctrlText.Name = "text" & threadID
        ContentPanel.Children.Add(ctrlText)
    End Sub

    '*** for Update Status
    Private Sub UpdateStatus(ByVal intProgress As Integer, ByVal threadID As String)
        '*** Update Progress ***'
        Dim progress As ProgressBar = Me.FindName("Progress" & threadID)
        progress.Value = intProgress

        '*** Update Text Result ***'
        Dim text As TextBlock = Me.FindName("text" & threadID)
        text.Text = intProgress.ToString() & " %"
    End Sub

    '*** for When Thread Complete
    Private Sub UpdateFinish()
        btnStartThread.IsEnabled = True
    End Sub

        private void btnStartThread_Click(System.Object sender, System.Windows.RoutedEventArgs e)
        {
            System.Threading.Thread thread = new System.Threading.Thread(ThreadStart);
            thread.Start();
        }

        private void ThreadStart()
        {
            int intProgress = 0;

            string threadID = System.Threading.Thread.CurrentThread.ManagedThreadId.ToString();

            //*** for Begin create Control ***'
            Action<string> begin = new Action<string>(BeginCreate);

            //*** for Display ***'
            Action<int, string> display = new Action<int, string>(UpdateStatus);

            //*** when Finish ***'
            Action finish = new Action(UpdateFinish);

            Dispatcher.BeginInvoke(begin, threadID);
            // Create ProgressBar

            //*** Example for Execute
            for (int i = 0; i <= 100; i++)
            {
                intProgress = i;
                System.Threading.Thread.Sleep(100);
                Dispatcher.BeginInvoke(display, intProgress, threadID);
                //Update Status
            }

            Dispatcher.BeginInvoke(finish);
            // When Finish
        }

        //*** for Create control ProgressBar
        private void BeginCreate(string threadID)
        {
            ProgressBar ctrlProgress = new ProgressBar();
            ctrlProgress.Name = "Progress" + threadID;
            ContentPanel.Children.Add(ctrlProgress);

            TextBlock ctrlText = new TextBlock();
            ctrlText.Name = "text" + threadID;
            ContentPanel.Children.Add(ctrlText);
        }

        //*** for Update Status
        private void UpdateStatus(int intProgress, string threadID)
        {
            //*** Update Progress ***'
            ProgressBar progress = (ProgressBar)this.FindName("Progress" + threadID);
            progress.Value = intProgress;

            //*** Update Text Result ***'
            TextBlock text = (TextBlock)this.FindName("text" + threadID);
            text.Text = intProgress.ToString() + " %";
        }

        //*** for When Thread Complete
        private void UpdateFinish()
        {
            btnStartThread.IsEnabled = true;
        }

    <StackPanel x:Name="ContentPanel" Grid.Row="1" Margin="12,0,12,0">
    
    </StackPanel>