BackUp из Mysql по локальной сети

Imports MySql.Data.MySqlClient
Public Class Form2
    Dim MysqlConn As MySqlConnection
    Dim constring As String = "server=192.168.150.105;userid=root;password=vertrigo;database=16_03_2018; Charset=utf8"
 
    Private Enum CurrentProcessType
        Export
        Import
        None
    End Enum
 
    Private WithEvents mb As MySqlBackup
    Private HighTimeForGuiRefresh As Boolean = True
    Private cpt As CurrentProcessType = CurrentProcessType.None
 
 
    Public Sub New()
 
        InitializeComponent()
 
    End Sub
    Private Sub mb_ExportProgressChanged(ByVal sender As Object, ByVal e As ExportProgressArg)
        ReportExportProgress(e)
    End Sub
    Private Sub ReportExportProgress(ByVal e As ExportProgressArg)
 
        If Not HighTimeForGuiRefresh AndAlso e.PercentageCompleted < 99 Then Exit Sub
 
        If Me.InvokeRequired Then
            Me.Invoke(New ReportExportProgressInvoker(AddressOf ReportExportProgress), New Object() {e})
            Exit Sub
        End If
 
        ProgressBar1.Value = e.PercentageCompleted
        ProgressBar1.Text = "Progress " + e.PercentageCompleted.ToString() + "%"
 
        HighTimeForGuiRefresh = False
 
    End Sub
    Private Sub ReportExportCompleted(ByVal e As ExportCompleteArg)
 
        If Me.InvokeRequired Then
            Me.Invoke(New ReportExportCompletedInvoker(AddressOf ReportExportCompleted), New Object() {e})
            Exit Sub
        End If
 
        Timer1.Stop()
 
        If e.CompletedType = ExportCompleteArg.CompleteType.Cancelled Then
            ProgressBar1.Text = "Backup process was canceled."
        ElseIf e.CompletedType = ExportCompleteArg.CompleteType.Error Then
            ProgressBar1.Text = "Backup process was interrupted by an exception."
        End If
 
        Dim errMsg As String = ""
        If e.Error IsNot Nothing Then errMsg = e.Error.ToString()
        MsgBox(("Export " & e.CompletedType.ToString() & vbCrLf & errMsg).Trim, _
            MsgBoxStyle.Information, "")
 
        ClearOperationData(True)
 
    End Sub
    Private Sub mb_ExportCompleted(ByVal sender As Object, ByVal e As ExportCompleteArg)
        ReportExportCompleted(e)
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not mb Is Nothing Then
            MsgBox("Error. Can't start export while another process is in progress.", _
                MsgBoxStyle.Exclamation, "")
            Exit Sub
        End If
 
        Dim fn As String = ""
 
        Using sf As New SaveFileDialog()
            sf.FileName = "test " & DateTime.Now.ToString("yyyyMMdd HHmmss") & ".sql"
            If sf.ShowDialog() <> System.Windows.Forms.DialogResult.OK Then Exit Sub
            fn = sf.FileName
        End Using
 
        ProgressBar1.Value = 0
 
        mb = New MySqlBackup()
 
        mb.Connection = New MySqlConnection(constring)
        mb.ExportInfo.FileName = fn
        mb.ExportInfo.AsynchronousMode = True
 
        AddHandler mb.ExportProgressChanged, AddressOf mb_ExportProgressChanged
        AddHandler mb.ExportCompleted, AddressOf mb_ExportCompleted
 
        cpt = CurrentProcessType.Export
 
 
 
        Try
            mb.Export()
            Timer1.Start()
        Catch ex As Exception
            Timer1.Stop()
            MsgBox("Error occured while starting export process: " & ex.Message, _
                MsgBoxStyle.Exclamation, "")
            ClearOperationData(True)
        End Try
    End Sub
 
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
 
 
 
 
    Private Sub RefreshTimer_Tick(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles Timer1.Tick
 
        Timer1.Stop()
        If mb Is Nothing Then Exit Sub
        HighTimeForGuiRefresh = True
        Timer1.Start()
 
    End Sub
 
 
 
 
 
    Private Delegate Sub ReportExportCompletedInvoker(ByVal e As ExportCompleteArg)
 
 
    Private Delegate Sub ReportExportProgressInvoker(ByVal e As ExportProgressArg)
 
 
 
 
 
 
    Private Delegate Sub ReportImportCompletedInvoker(ByVal e As ImportCompleteArg)
 
 
 
    Private Delegate Sub ReportImportProgressInvoker(ByVal e As ImportProgressArg)
 
 
 
 
    Private Sub ClearOperationData(ByVal ContinueWithResetButtons As Boolean)
        If Not mb Is Nothing Then
            If cpt = CurrentProcessType.Export Then
                RemoveHandler mb.ExportProgressChanged, AddressOf mb_ExportProgressChanged
                RemoveHandler mb.ExportCompleted, AddressOf mb_ExportCompleted
 
            End If
            mb.Dispose()
            mb = Nothing
        End If
        cpt = CurrentProcessType.None
        HighTimeForGuiRefresh = True
 
    End Sub
 
 
 
    
End Class