Imports System

Imports System.Drawing

Public Module Module1

    Public Sub Main()

        dim s as string="test"

        dim a as integer= s.GetHashCode()       

        dim c as Color =Color.FromArgb(ctype(&HFF000000,integer) + a)

        Console.Write(c.Name)

    End Sub

End Module