Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
'Beim Beenden wird die verbleibende Zeit "gespeichert"
Dim Datei As New StreamWriter("C:\text.txt")
Datei.WriteLine(Label1.Text)
Datei.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Datei laden
If File.Exists("C:\text.txt") Then
Dim Laden As New StreamReader("C:\text.txt")
Label1.Text = Laden.ReadLine.Trim
Laden.Close()
End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Label1.Text = Label1.Text - 1
End Sub
End Class