Hier eine funktion die ich über Google gefunden habe.
Aufruf:Code:Private Function GetHexColor(ByVal colorObj As System.Drawing.Color) As String Return "#" & Hex(colorObj.R) & Hex(colorObj.G) & Hex(colorObj.B) End Function
MfGCode:Label2.Text = GetHexColor(ColorDialog1.Color)