Color2Html - Retrieving the HTML code for the specified Color
' Return the HTML code for the specified Color
' Example: MessageBox.Show(Color2Html(Color.Red)) ==> #ff0000
Function Color2Html(ByVal clr As Color) As String
Return "#" & clr.ToArgb().ToString("x").Substring(2)
End Function