动态键入类的属性

Question

Module Module1

    Sub Main()
        Dim p As New xyz(MyENUM.C)
    End Sub

End Module

Public Class xyz

    Public Sub New(p As MyENUM)
        Me.pmd = Convert.ChangeType(Me.pmd, GetType(p))
    End Sub

    Public pm As MyENUM
    Public pmd As Object

End Class

Public Enum MyENUM
    A
    B
    C
    D
End Enum

我需要将类xyz的pmd属性类型设置为enum myenum的名称。有没有办法做到这一点？

将每个Enum属性视为类的名称。根据用户输入，我只想要其中一个类的一个对象。而不是创建4个对象并只使用一个。