自定义类，类中有枚举属性，如何通过IntelliSense弹出一个包含可接受值的列表框？

[realjoshzuo]

自定义类MyTest，类中部分代码：

Private ipriorityType As PriorityType
    Public Property Priority() As Integer
        Get
            Return ipriorityType
        End Get
        Set(ByVal value As Integer)
            ipriorityType = value
        End Set
    End Property

Public Enum PriorityType
    High = 2
    Low = 1
    Normal = 3
    xxxx = 0
End Enum

应用程序引用这个类后，如何通过IntelliSense弹出一个包含可接受值的列表框？

我输入
Dim iMyTest As New MyTest
然后
iMyTest.TestType=
但是当输入"="后，并没有弹出一个包含可接受值的列表框！

[vlsm]

修改为：

Private ipriorityType As PriorityType
    Public Property Priority() As PriorityType
        Get
            Return ipriorityType
        End Get
        Set(ByVal value As PriorityType)
            ipriorityType = value
        End Set
    End Property

[amandag]

Imports System

Class MyTest
    Private ipriorityType As PriorityType
    Public Property Priority() As PriorityType
        Get
            Return ipriorityType
        End Get
        Set(ByVal value As PriorityType)
            ipriorityType = value
        End Set
    End Property

    Public Enum PriorityType
        High = 2
        Low = 1
        Normal = 3
        xxxx = 0
    End Enum
    Shared Sub Main()
        Dim iMyTest As New MyTest
        iMyTest.Priority = PriorityType.High
        Console.Write(iMyTest.Priority)
    End Sub
End Class