If varDatensicherungszähler > 9 Then    'Datensicherung
        fraDatensicherung.Visible = True  'hier das Frame
        Screen.MousePointer = 11
        StatusBar1.Panels(3).Text = CStr(Time) + "   " + CStr(Date)
        FileCopy varDatenPfad + "\Artikel.dat", varZielPfad + "\Artikel.dat"
        FileCopy varDatenPfad + "\Bonnummer.dat", varZielPfad + "\Bonnummer.dat"
        FileCopy varDatenPfad + "\KasseAUF.log", varZielPfad + "\KasseAUF.log"
        FileCopy varDatenPfad + "\KasseDaten.csv", varZielPfad + _
          "\KasseDaten.csv"
        FileCopy varDatenPfad + "\KassenDaten.Log", varZielPfad + _
        "\KassenDaten.Log"
        FileCopy varDatenPfad + "\Kassesys.dat", varZielPfad + "\Kassesys.dat"
        FileCopy varDatenPfad + "\Letzte Vorgänge.dat", varZielPfad + "\Letzte" & _
          "Vorgänge.dat"
        FileCopy varDatenPfad + "\Warengruppen.dat", varZielPfad + _
        "\Warengruppen.dat"
        varDatensicherungszähler = 0
        Screen.MousePointer = 0
        fraDatensicherung.Visible = False
End If