Dim i As Integer
        Dim vok1 As String
        Randomize()
        Timer2.Start()
        Using sr As IO.StreamReader = New IO.StreamReader("vokabeln.dat")
            For i = 1 To Int((Rnd() * 0 + 50))
                vok1 = sr.ReadLine()
                latein = vok1.Split(";")
                TextBox1.Text = latein(0)
            Next
        End Using