Dim cc As New ColorConverter
Dim s1 As String = _
cc.ConvertToString(Color.Red) '--> "red"
Dim s2 As String = _
cc.ConvertToString(Color.FromArgb(Color.Red.ToArgb)) '--> "255, 0, 0"
 
'Der Rückgabe-Typ der Methode "ConvertFromString" ist Object.
Dim cl As Color = CType(cc.ConvertFromString(s1), Color)

Dim s3 As String = Color.Red.ColorToText 'Farbe in Text wandeln
Dim col As Color = s3.TextToColor 'Text zurück in Farbe wandeln
 
'Optional kann ein erkärender Text mitgegeben werden: 
Dim s4 As String = Color.Yellow.ColorToText("Meine Farbe")

Option Strict On : Option Explicit On
Module modColorStuff
 
    Private Const Alpha As String = "Alpha: "
    Private Const Rot As String = "Rot: "
    Private Const Grün As String = "Grün: "
    Private Const Blau As String = "Blau: "
 
    <System.Runtime.CompilerServices.Extension()> _
    Public Function ColorToText(ByVal c As System.Drawing.Color, _
                       Optional ByVal ColorText As String = "") As String
 
        Dim icolortext As String = "", d As String = "   "
        If Not String.IsNullOrWhiteSpace(ColorText) Then _
           icolortext = ColorText.Trim
 
        icolortext &= d & Alpha & CStr(c.A) & d & _
            Rot & CStr(c.R) & d & Grün & CStr(c.G) & d & Blau & CStr(c.B)
        Return icolortext
    End Function
 
    <System.Runtime.CompilerServices.Extension()> _
    Public Function TextToColor(ByVal Colortext As String) As _
    System.Drawing.Color
        Dim retcolor As System.Drawing.Color = Color.Black
        Try
          With Colortext
            Dim alp As Integer = _
            CByte(.Substring(.IndexOf(Alpha) + Alpha.Length, 3))
            Dim red As Integer = _
            CByte(.Substring(.IndexOf(Rot) + Rot.Length, 3))
            Dim green As Integer = _
            CByte(.Substring(.IndexOf(Grün) + Grün.Length, 3))
            Dim blue As Integer = _
            CByte(.Substring(.IndexOf(Blau) + Blau.Length))
 
            retcolor = Color.FromArgb(alp, red, green, blue)
          End With
        Catch
        End Try
        Return retcolor
    End Function
End Module