Dim a As WinForm.ColorPicker = e.Form.Controls("ColorPicker1") Dim converter As New ColorConverter Dim colorAsString As String = converter.ConvertToString(a.value) msgbox(colorAsString )
Dim co = ctype(converter.ConvertFromString(colorAsString),Color) msgbox(co.Tostring)