พี่ครับจะทำ Progress Loading แบบนี้อย่างไรครับ ใน VB.NET ขอบพระคุณครับ ?

Partial Public Class MainPage
    Inherits PhoneApplicationPage

    ' Constructor
    Public Sub New()
        InitializeComponent()

        Dim url As String = "https://www.thaicreate.com/wp/img.jpg"
        Dim bm As BitmapImage = New BitmapImage(New Uri(url, UriKind.Absolute))
        AddHandler bm.DownloadProgress, AddressOf Me.bitmapImage_DownloadProgress
        Image1.Source = bm

    End Sub

    Private Sub bitmapImage_DownloadProgress(ByVal sender As Object, ByVal e As DownloadProgressEventArgs)
        progressBar1.Value = e.Progress
    End Sub

End Class