Public Class TextTabelle
    Private Const AnzahlSprachen = 16
    Private T As Hashtable
 
 
    Public Sub New()
        T = New Hashtable
    End Sub
 
 
    Public Sub AddReferenzText(ByVal Referenztext As String)
        Dim a(AnzahlSprachen) As String
 
        For i As Integer = 0 To AnzahlSprachen
            a(i) = ""
        Next
        If Not T.ContainsKey(Referenztext.GetHashCode) Then
            a(0) = Referenztext
            T.Add(Referenztext.GetHashCode, a)
        Else
            MessageBox.Show("Referenztext '" & Referenztext & "' in Liste" & _
              "schon" & _
              "vorhanden!")
        End If
 
    End Sub
 
    Public Sub AddSprachText(ByVal Referenztext As String, ByVal Sprachtext As _
      String, ByVal Sprachnummer As Integer)
        Dim a(AnzahlSprachen) As String
 
        If Sprachnummer > AnzahlSprachen Then
            MessageBox.Show("Sprachnummer zu groß!")
        Else
            If Not T.ContainsKey(Referenztext.GetHashCode) Then
                MessageBox.Show("Referenztext '" & Referenztext & "' in Liste" _
                  & _
                  "nicht vorhanden!")
            Else
                a = T.Item(Referenztext.GetHashCode)
                a(Sprachnummer) = Sprachtext
                T.Item(Referenztext.GetHashCode) = a
            End If
        End If
    End Sub
 
  Public Function GetTexte() As SortedList
        Dim tmpList As New SortedList(StringComparer.Ordinal)
        Dim Enumerator As IDictionaryEnumerator = T.GetEnumerator
        Dim strarr() As String
 
        While Enumerator.MoveNext = True
            With (Enumerator)
                strarr = .Value
                tmpList.Add(strarr(0), strarr)
            End With
        End While
        Return tmpList
    End Function
Enc Class

Dim tt As New TextTabelle
   Private Sub ViewTexte()
        Dim Liste As SortedList
        Liste = tt.GetTexte()
        Dim ll() As String
        Dim Enumerator As IDictionaryEnumerator = Liste.GetEnumerator
        ListView1.BeginUpdate()
        While Enumerator.MoveNext = True
            With (Enumerator)
                ll = .Value
                Dim lvi As New ListViewItem
                lvi.Text = ll(0)
 
                For i As Integer = 1 To ll.GetUpperBound(0) - 1
                    lvi.SubItems.Add(ll(i))
                Next
                ListView1.Items.Add(lvi)
            End With
        End While
        ListView1.EndUpdate()
    End Sub