类对象属性，它引用相同对象类型的另一个对象实例

问：

我有一个类对象，如下所示：

Public Class item
    Public Property ID
    Public Property Name
    Public Property Description
    Public Property Type
    Public Property Alias
End Class

我目前正在将这些存储为字典，如下所示：

Public Class Items

    Public ReadOnly dict Dictionary(Of String, item) From {
        {"A", New item With {.Name = "Object A", .Description = "Object A description"}},
        {"B", New item With {.Name = "Object B", .Description = "Object B description"}},
        {"C", New item With {.Alias = "A"}}
    }

    Public Function GetItem(ByVal ID As String) As item
        Return If(dict.ContainsKey(ID), idct.Item(ID), Nothing)
    End Function

End Class

复杂性在于，有时 an 本身没有任何属性，而是具有一个属性，该属性显示“我的所有属性都与此 ID 相同，请检查该对象”。item.Aliasitem

我应该如何编写我的类对象，以便此代码返回“对象 A”：item

Dim newItem As item = GetItem("C")
Debug.WriteLine(item.Name)

对象 C 是对象 A 的别名，因此我应该返回对象 A 的一些属性（并不总是全部属性），而不是 。Nothing

解决此问题的方法是将以下函数添加到类中：Items

Public Function GetItemDescription(ByVal ID As String) As String
    If dict.ContainsKey(ID) Then
        If dict.Item(ID).Description = "" Then
            Return GetItemDescription(dict.Item(ID).Alias)
        Else
            Return dict.Item(ID).Description
        End If
    Else
        Return ""
    End If
End Function

但是，这感觉不是正确的方法，因为那样我必须重复调用一组函数，而不是直接引用对象（例如 必须Items.GetPropertyXYZitem.DescriptionGetItemDescription("C")

我的解决方案是否能从设计中接受，或者有更好的方法来实现这一目标？