How to write and read a Color in VB.NET

Transforming a color in hexa representation using following function:

Private Function WriteHexString(ByVal aobjColR As Byte, ByVal aobjColG As Byte, ByVal aobjColB As Byte) As String
Dim strRet As String
Dim btR As Byte() = {aobjColR}
Dim strR As String = ToHexString(btR)
strRet = strR
Dim btG As Byte() = {Me.colorDialog1.Color.G}
Dim strG As String = ToHexString(btG)
strRet &= strG
Dim btB As Byte() = {Me.colorDialog1.Color.B}
Dim strB As String = ToHexString(btB)
strRet &= strB
Return strRet
End Function 'WriteHexString

This function transform a Color (defined as Color.R, Color.G, Color.B) in hexa representation (as string) and use following helper functions: 

Private Shared Function ToHexString(ByVal bytes As Byte()) As String
Dim chars As Char() = New Char(bytes.Length * 2 - 1) {}
Dim i As Integer = 0
Do While i < bytes.Length
Dim b As Integer = bytes(i)
chars(i * 2) = hexDigits(b >> 4)
chars(i * 2 + 1) = hexDigits(b And &HF)
i += 1
Loop
Return New String(chars)
End Function 'ToHexString

Shared hexDigits() As Char = {"0"c, "1"c, "2"c, "3"c, "4"c, "5"c, "6"c, "7"c, "8"c, "9"c, "A"c, "B"c, "C"c, "D"c, "E"c, "F"c}

To transform "hexa" representation back in color we can use following function:

The complete code is in zip file.

NOTE: THIS ARTICLE IS CONVERTED FROM C# TO VB.NET USING A CONVERSION TOOL. ORIGINAL ARTICLE CAN BE FOUND ON C# CORNER (WWW.C-SHARPCORNER.COM).