Dim zahlen() As String = New String(deutsch.Count - 1) {}
        Dim zufall As String
        For j = 0 To deutsch.Count - 1
            Do
                zufall = randomizer.Next(0, deutsch.Count).ToString
            Loop While zahlen.Contains(zufall)
            If Form1.sprache = "deutsch" Then
                sprache2(j) = deutsch(zufall)
                sprache1(j) = englisch(zufall)
            ElseIf Form1.sprache = "englisch" Then
                sprache1(j) = deutsch(zufall)
                sprache2(j) = englisch(zufall)
            End If
            zahlen(j) = zufall
        Next