Dim ccv As New ColorConverter
 
        Dim cs As String = ccv.ConvertToString(myColor)
        Dim c1 As Color = ccv.ConvertFromString(cs)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist