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