Enum BoilingPoints
Celsius = 100
Fahrenheit = 212
End Enum
Public Module Example
Public Sub Main()
Dim boiling As Type = GetType(BoilingPoints)
For Each s In [Enum].GetNames(boiling)
Console.WriteLine("{0,-11} = {1}", s, [Enum].Format(boiling, [Enum].Parse(boiling, s), "d"))
Next s
End Sub
End Module