Imports System

Public Class Test
    Public Shared Sub Main()
        For Each Name As String In [Enum].GetNames(GetType(System.Drawing.ContentAlignment))
            Dim Value As Integer = [Enum].Parse(GetType(System.Drawing.ContentAlignment), Name)
            Dim ConvertedValue As Integer = Math.Floor(Math.Log(Value, 16))
            Console.WriteLine("{0,-14}{1,-8}:    {2} {3}", Name, "(" & Value & ")", ConvertedValue, "(" & [Enum].GetName(GetType(System.Drawing.StringAlignment), ConvertedValue) & ")")
        Next
    End Sub
End Class