Private Sub BtnInsert_MautBerechnen_Click(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles BtnInsert_MautBerechnen.Click
        Me.UpdateKONFIGURATION()
        Dim result As MsgBoxResult
        result = MsgBox("Die zugrunde liegenden Entfernung-/Maut-Tabellen" & _
          "werden jetzt neu berechnet!" & vbCrLf & "Dies kann einen Moment" & _
          "dauern!" & vbCrLf & " " & vbCrLf & "Berechnung durchführen?", _
          MsgBoxStyle.YesNo, "Digital Data - Tarif-Kalkulator")
        Me.Cursor = Cursors.WaitCursor
        If result = MsgBoxResult.Yes Then
            'Progress-Bar starten
            Me.ProgressBar1.Visible = True
            Dim i As Integer
            Me.Cursor = Cursors.WaitCursor
            For i = 1 To 100
                Threading.Thread.Sleep(1000) '1000 ms warten
                ProgressBar1.Value = i
            Next
            ProgressBar1.Value = 0
            Me.Cursor = Cursors.Default
            'Insert-Befehl
            OracleConnection1.Open()
            Me.CmdUpdate_MautBerechnen.ExecuteNonQuery()
 
            OracleConnection1.Close()
            Me.ProgressBar1.Visible = False
            Me.Cursor = Cursors.Default
            MsgBox("Die Entfernungs- und Maut-Tabellen wurden erfolgreich neu" & _
              "berechnet!", MsgBoxStyle.Information, "Digital Data -" & _
              "Haustarif-Kalkulator")
        Else
            Me.Cursor = Cursors.Default
        End If
    End Sub