_> Die 10 news
 
##1952##
6. Februar - Großbritannien. Amtsantritt von Königin Elizabeth II. 
8. Februar - Laut Angabe des Statistischen Bundesamtes leben 9,6 Millionen _
  Flüchtlinge in der Bundesrepublik 
18. Februar - Griechenland und Türkei treten der NATO bei 
20. Februar - Der Bundestagsabgeordnete "Dr. Franz Richter" (SRP) wird unter _
  dem Vorwurf, in Wahrheit der ehemalige NSDAP-Gauhauptstellenleiter von _
  Sachsen Fritz Rößler zu sein, im Bundeshaus verhaftet 
22. Februar - Nicaragua wird Mitglied in der UNESCO 
10. März - Staatsstreich von Fulgencio Batista in Kuba 
10. März - Die Sowjetunion unterbreitet den Westmächten die Stalin-Note 
15. April - Staatsstreich von Victor Paz Estenssoro in Bolivien 
27. April - Unterzeichnung eines Friedensvertrags zwischen Japan und China 
23. Oktober - In Deutschland wird die SRP verboten.
##1953##
 
 
_> Mein Einlesecode
 
  Dim lines() As String
 
        Dim sr As New IO.StreamReader(Application.StartupPath & _
          "\Ressources\years.crYpt", System.Text.Encoding.Default)
        lines = Split(sr.ReadToEnd, vbCrLf)
        sr.Close()
        For i As Integer = 0 To UBound(lines)
            If Microsoft.VisualBasic.Left(lines(i), 2) = "##" Then
                jahrshit.Items.Add(lines(i))
            End If
        Next
 
        Dim x As Integer = Array.IndexOf(lines, "##" & c.jahr & "##")
        If x > -1 Then
            jahrshit.Items.Clear()
            For x = x + 1 To UBound(lines)
                If Microsoft.VisualBasic.Left(lines(x), 2) = "##" Then Exit Sub
                jahrshit.Items.Add(lines(x))
            Next
        End If