Public Shared Function SetColorToIni(IniFile As String, _
                        Section As String, Keyname As String, _
                        ColorToSet As System.Drawing.Color) As Boolean
 
        If Not CheckIniParams(IniFile, Section, Keyname) Then Return False
 
        Dim keyvalue As String = ColorToSet.ToArgb.ToString()
 
        Dim result As Integer = WritePrivateProfileString _
            (Section, Keyname, keyvalue, IniFile)
 
        Return result > 0
    End Function