进行数据库备份时进度条

Question

使用VB.NET作为前端而PostgreSQL作为后端，我想要的是在备份时创建进度条

采取备份的代码

Public Sub pgBackup(ByVal DestinationPath As String)
    Dim bak As New PgSqlDump
    Try
        bak.Connection = Myconnstr
        Myconnstr.Open()
        bak.ObjectTypes = PgSqlDumpObjects.All
        bak.Mode = Devart.Common.DumpMode.All
        bak.Backup(DestinationPath)
        Myconnstr.Close()
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Information, "RStari9 - pgBackup")
    End Try

如何在ProgressBar Control

上使用bak.Backup(DestinationPath)