Dim d2 As DummyClass.DummyEnumDim values() As String = System.Enum.GetNames(GetType(DummyClass.DummyEnum))Dim val As StringFor Each val In values MsgBox(val)Next