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.Log(Value Mod 5, 2)
            Console.WriteLine("{0,-14}{1,-8}:    {2} {3}", Name, "(" & Value & ")", ConvertedValue, "(" & [Enum].GetName(GetType(System.Drawing.StringAlignment), ConvertedValue) & ")")
        Next
    End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CiAgICBQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKICAgICAgICBGb3IgRWFjaCBOYW1lIEFzIFN0cmluZyBJbiBbRW51bV0uR2V0TmFtZXMoR2V0VHlwZShTeXN0ZW0uRHJhd2luZy5Db250ZW50QWxpZ25tZW50KSkKICAgICAgICAgICAgRGltIFZhbHVlIEFzIEludGVnZXIgPSBbRW51bV0uUGFyc2UoR2V0VHlwZShTeXN0ZW0uRHJhd2luZy5Db250ZW50QWxpZ25tZW50KSwgTmFtZSkKICAgICAgICAgICAgRGltIENvbnZlcnRlZFZhbHVlIEFzIEludGVnZXIgPSBNYXRoLkxvZyhWYWx1ZSBNb2QgNSwgMikKICAgICAgICAgICAgQ29uc29sZS5Xcml0ZUxpbmUoInswLC0xNH17MSwtOH06ICAgIHsyfSB7M30iLCBOYW1lLCAiKCIgJiBWYWx1ZSAmICIpIiwgQ29udmVydGVkVmFsdWUsICIoIiAmIFtFbnVtXS5HZXROYW1lKEdldFR5cGUoU3lzdGVtLkRyYXdpbmcuU3RyaW5nQWxpZ25tZW50KSwgQ29udmVydGVkVmFsdWUpICYgIikiKQogICAgICAgIE5leHQKICAgIEVuZCBTdWIKRW5kIENsYXNz