> Dim loBackup As Backup = New Backup > Dim loServer As Server = New Server > > loBackup.Devices.AddDevice("D:\Data\Backup\MyDatabase.bak", DeviceType.File) > loBackup.Database = "MyDatabase" > loBackup.Action = Microsoft.SqlServer.Management.Smo.BackupActionType.Database > loBackup.Initialize = True > loBackup.PercentCompleteNotification = 1 > AddHandler loBackup.PercentComplete, AddressOf ProgressEventHandler > loBackup.SqlBackup(loServer) > > Private Sub ProgressEventHandler(ByVal sender As Object, ByVal e As PercentCompleteEventArgs) > UrlDisplay.Text = e.Percent.ToString + "% backed up" > Application.DoEvents() > End Sub >You're welcome.