Imports System Imports System.Data Imports System.Collections public class MainClass Shared Sub Main() Dim I1, I2, I3 As Integer I1 = E.A : I2 = E.B : I3 = E.C Console.WriteLine(I1.ToString() &" " & I2.ToString() &" " & I3.ToString()) End Sub End Class Enum E A = 5 B C = 6 ' B and C will both be 6 End Enum