Try something like this....Set & Get:
Public Sub SetColor(ByVal strXPath As String, ByVal strAttribName As String, ByVal clrValue As System.Drawing.Color)
SetAttrib(strXPath, strAttribName, clrValue.ToArgb.ToString)
End Sub
Public Function GetColor(ByVal strXPath As String, ByVal strAttribName As String, ByVal clrDefault As System.Drawing.Color) As System.Drawing.Color
Dim clrValue As System.Drawing.Color
Try
clrValue = System.Drawing.Color.FromArgb(CInt(GetAttrib(strXPath, strAttribName, clrDefault.ToArgb.ToString)))
Catch
clrValue = clrDefault
End Try
Return clrValue
End Function
Robert