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

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CiAgICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgICBGb3IgRWFjaCBOYW1lIEFzIFN0cmluZyBJbiBbRW51bV0uR2V0TmFtZXMoR2V0VHlwZShTeXN0ZW0uRHJhd2luZy5Db250ZW50QWxpZ25tZW50KSkKICAgICAgICAgICAgRGltIFZhbHVlIEFzIEludGVnZXIgPSBbRW51bV0uUGFyc2UoR2V0VHlwZShTeXN0ZW0uRHJhd2luZy5Db250ZW50QWxpZ25tZW50KSwgTmFtZSkKICAgICAgICAgICAgRGltIENvbnZlcnRlZFZhbHVlIEFzIEludGVnZXIgPSBNYXRoLkZsb29yKE1hdGguTG9nKFZhbHVlLCAxNikpCiAgICAgICAgICAgIENvbnNvbGUuV3JpdGVMaW5lKCJ7MCwtMTR9ezEsLTh9OiAgICB7Mn0gezN9IiwgTmFtZSwgIigiICYgVmFsdWUgJiAiKSIsIENvbnZlcnRlZFZhbHVlLCAiKCIgJiBbRW51bV0uR2V0TmFtZShHZXRUeXBlKFN5c3RlbS5EcmF3aW5nLlN0cmluZ0FsaWdubWVudCksIENvbnZlcnRlZFZhbHVlKSAmICIpIikKICAgICAgICBOZXh0CiAgICBFbmQgU3ViCkVuZCBDbGFzcw==