Friend Class SortedAlbumStruct
        Inherits System.Collections.Generic.SortedDictionary(Of String, _
          AlbumStruct)
 
        Default Public Overloads ReadOnly Property Item(ByVal Index As Integer) _
          As AlbumStruct
            Get
                Try
                    Return MyBase.Item(Keys(Index))
                Catch
                    Throw New IndexOutOfRangeException
                End Try
            End Get
        End Property
 
        Default Public Overloads ReadOnly Property Item(ByVal sAlbumName As _
          String) As AlbumStruct
            Get
                Try
                    If sAlbumName = "" Then sAlbumName = "[Leer]"
                    Debug.Print(MyBase.Count.ToString)
                    Return MyBase.Item(sAlbumName)   '---> Fehler: 
                    ' KeyNotFounmdExeption!
                Catch
                    Throw New IndexOutOfRangeException
                End Try
            End Get
        End Property
 
        Public ReadOnly Property Items() As String()
            Get
                Dim Res(Keys.Count - 1) As String
                Me.Keys.CopyTo(Res, 0)
                Return Res
            End Get
        End Property
 
        Public Shadows Sub Add(ByVal sAlbumName As String, ByVal iNr As Integer)
            If _Vorschau Is Nothing OrElse _Vorschau.Items.Count < 1 Then Exit _
              Sub
 
            If sAlbumName = "" Then sAlbumName = "[Leer]"
 
            If Not Me.ContainsKey(sAlbumName) Then
                Dim X As New AlbumStruct
                X.Add(iNr)
                MyBase.Add(sAlbumName, X)
            Else
                Dim X As AlbumStruct = MyBase.Item(sAlbumName)
                X.Add(iNr)
            End If
 
            Debug.Print(MyBase.Count.ToString)
        End Sub
 
        Public Shadows Function Remove(ByVal sAlbumName As String) As Boolean
            If sAlbumName = "" Then sAlbumName = "[Leer]"
 
            If Not Me.ContainsKey(sAlbumName) Then Return True
            Return MyBase.Remove(sAlbumName)
        End Function
    End Class

Public Class AlbumStruct
   Public iNr as Integer
   Public Name as string
End Class