Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Timer1.Tick
        TimeLabel.Text += -0.01
        If TimeLabel.Text.EndsWith(99) Then
            TimeLabel.Text += -39
        End If
        If TimeLabel.Text = 0 Then
            Dim writer As IO.StreamWriter = IO.File.CreateText("Voting.dat")
            Dim v As String
            Dim L As String
            Dim wri As String
            Dim old As String
            L = 0
            For Each v In Votdat.Lines
                L += +1
                If L - 1 = NextClip Then
                    wri += "0" + Environment.NewLine
                Else
                    wri += v + Environment.NewLine
                End If
            Next
            writer.Write(wri)
            writer.Close()
            old = NextClip
            clip_wechsel()
            Dim Playa As New PlayA
            If NextClip = old Then
                Dim Random As New Random
                NextClip = Random.Next("0", clips + 1)
                Playa.PlayA(pfad & NextClip & ".wav")
            Else
                Playa.PlayA(pfad & NextClip & ".wav")
            End If
 
            Dim reader As IO.StreamReader = IO.File.OpenText(pfad & NextClip & _
              ".txt")
            Label5.Text = reader.ReadLine + Environment.NewLine
            Label5.Text += reader.ReadLine + Environment.NewLine
            TimeLabel.Text = reader.ReadLine
            reader.Close()
        End If
    End Sub