Private Sub LoginForm1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Dim schliessenspeichern As DialogResult
        Dim sFile As String = "..."
        Dim sDestFile As String = "..."
        Dim sServer As String = "..."
        Dim sUser As String = "..."
        Dim sPwd As String = "..."
 
        UpdateProgressBar.Value = 0
        UpdateProgressBar.Visible = True
 
        schliessenspeichern = MessageBox.Show("Datenbank speichern?", _
          "Schliessen", MessageBoxButtons.YesNo, MessageBoxIcon.Warning, _
          MessageBoxDefaultButton.Button1)
        If schliessenspeichern = Windows.Forms.DialogResult.Yes Then
 
            UploadFTP(sFile, sDestFile, sServer, sUser, sPwd)
        Else
 
        End If
    End Sub