Public Class PicNumberString
 
    Dim _pic As Bitmap = Nothing
    Dim _number As Decimal? = Nothing
    Dim _text As String = Nothing
 
    Public Function ContainsText() As Boolean
        Return Not String.isnullorempty(_text)
    End Function
 
    Public Function ContainsPic() As Boolean
        Return _pic IsNot Nothing
    End Function
 
    Public Function ContainsNumber() As Boolean
        Return _number.HasValue
    End Function
 
    Public Sub New(ByVal pic As Bitmap)
        _pic = pic
    End Sub
 
    Public Sub New(ByVal text As String)
        _text = text
    End Sub
 
    Public Sub New(ByVal number As Decimal)
        _number = number
    End Sub
 
    Public ReadOnly Property GetNumber() As Decimal
        Get
            If Not _number.HasValue Then
                Throw New NullReferenceException("Keine Zahl vorhanden")
            End If
            Return _number.Value
        End Get
    End Property
 
    Public ReadOnly Property GetText() As String
        Get
            If String.IsNullOrEmpty(_text) Then
                Throw New NullReferenceException("Kein Text vorhanden")
            End If
            Return _text
        End Get
    End Property
 
    Public ReadOnly Property GetPic() As Bitmap
        Get
            If _pic Is Nothing Then
                Throw New NullReferenceException("Kein Bild vorhanden")
            End If
            Return _pic
        End Get
    End Property
End Class

   Dim lstexp As New KeyedValuesExpandable(Of PicNumberString)
 
   With lstexp
      .SetKeyValue(0, "Name", New PicNumberString("Max Mustermann"))
      .SetKeyValue(0, "Telefon", New PicNumberString("097-1234-567"))
 
      .SetKeyValue(1, "Name", New PicNumberString("Hans Mustermann"))
      .SetKeyValue(1, "Ort", New PicNumberString("Musterdorf"))
      .SetKeyValue(1, "Ort", New PicNumberString("Musterhausen")) 'Berichtigung
      .SetKeyValue(1, "Alter", New PicNumberString(35))
 
      Dim valuetoget As PicNumberString = Nothing
 
      For i As Integer = 0 To .Count - 1
         If .TryGetKeyValue(i, "Ort", valuetoget) Then
             MsgBox("Index " & CStr(i) & ", Schlüssel Ort = " & _
               valuetoget.GetText)
         Else
             MsgBox("Index " & CStr(i) & ", Schlüssel Ort nicht gefunden")
         End If
 
         If .TryGetKeyValue(i, "Alter", valuetoget) Then
            MsgBox("Index " & CStr(i) & ", Schlüssel Alter = " & _
              valuetoget.GetNumber.ToString)
         Else
            MsgBox("Index " & CStr(i) & ", Schlüssel Alter nicht gefunden")
         End If
      Next i
   End With