Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
    Handles Timer4.Tick
 
            Try 'versuche Datei zu kopieren
 
            'löschen von DestinationFiles damit keine Fehlermeldung erscheint
            'falls die Dateien existieren
            File.Delete(DestinationFile1)
            File.Delete(DestinationFile2)
 
            'Dateien kopieren
            File.Copy(OriginalFile1, DestinationFile1)
            File.Copy(OriginalFile2, DestinationFile2)
 
            ' Berechnung ausführen für ProgBar
            Dim i As Integer
            For i = 1 To 100
                Threading.Thread.Sleep(20)
                PBar1.PerformStep()
                PBar1.Step = 1.5
            Next
 
              If PBar1.Value = 100 Then
               Me.Timer4.Enabled = False
 
                'Wenn ohne Fehler kopiert bzw. gesichert worden ist, Meldung 
                ' ausgeben
                MessageBox.Show("Datenbanken erfolgreich kopiert, bzw." & _
                  "gesichert!", _
                "Info!", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
 
            'sonst
        Catch exc As Exception 'Wenn die Kopiermethode fehlschlägt
            'Fehlermeldung
            MessageBox.Show("Error :" & exc.Message.ToString, _
            "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
 
        'Progbar wieder auf 0 setzen
        Me.PBar1.Value = 0
 
    End Sub

VB@rchiv its the Best