vb.net 使用枚举参数

首先在类中定义一个枚举变量
public class PTest
    Public Enum emnStatus As Integer
            传递 = 1
            在办 = 2
            挂起 = 3
            完成 = 4
            结案 = 5
            注销 = 6
        End Enum
end Class

在另一个类中使用
public class TestP
    public function Test(ByVal Status As emnStatus)
         
    end function
end class

当我们使用TestP的方法时就会弹出参数让用户选择：
dim objTestP as New TestP()
objTestP.Test(PTest.emnStatus.在办)